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Make  the  User  Port 
Work  for  You 


We  just  did  something  only  the  best  can  do! 
We  made  our  award  winning*  software  for  the 
Commodore^^  128  and  64  computers  even  better! 


Introducing... 

Pocket  Writer  2 

word  processor 
Pocket  Planner  2 

spreadsheet 
Pocket  Filer  2 

dafobase 

New  Features 

Our  new  Pocket  2  series  offers  features  usually  found  only  in 
much  more  sophisticoted  applicotions  software.  Features  that 
include:  compotobility  with  the  new  GEOS  operating  systemt, 
ability  to  work  with  the  Commodore  RAM  expander  to  oilow  a 
RAM  disk,  mouse  support  with  pull  down  menus,  1571  burst 
mode  for  faster  file  loading,  increased  support  for  two  single  disk 
drives,  outomatic  configuration  for  screen  color,  format  and 
printer  selectiont. 

Sophisticated  software,  yes,  and  still  easy  to  use.  You  can  be 
up  and  running  in  under  30  minutes  even  if  you  haven't  operated 
a  computer  before. 

2  Programs  in  1 

Now,  when  you  upgrade  your  Commodore^"  64  to  a  128, 
Pocket  software  helps  make  it  a  breeze.  The  new  Pocket  2 
software  has  both  128  and  64  applications  on  the  some  disk.  So 
when  you  buy  one  you  ore  actually  buying  two  software 
packages.  The  cost  only  $59.95  ( U.S. ). 

6  Programs  in  1 

The  180%  Solution  saves  you  money!  You  con  buy  all  three 
Pocket  2  applications.  Pocket  Writer  2,  Pocket  Planner  2  and 
Pocket  Filer  2  in  one  convenient  Superpok  for  the  low  price  of 
only  S99.95  (U.S.).  A  super  way  to  discover  all  the  integrated 
features  of  Pocket  2  software  and  save  almost  eighty  dollars. 

As  0  companion  to  Pocket  Writer  2,  a  Dictionary  Disk 
contoining  32,000  words  (expandable  to  40,000)  is  available. 
The  cost  S  14.95  (U.S.). 

For  those  of  you  who  have  already  discovered  the  many 
benefits  of  owning  Pocket  software;  we  offer  all  registered 
owners  an  upgrade  to  Pocket  2  software  for  only  $  19.95  (U.S.) 
plus  3.00  (U.S.)  shipping  and  handlingi  Available  only  by  writing 
to  Digital  Solutions  Inc. 


Superpak: 

The  Solution  Thcrt 

Scnres  Money! 


Pocket  WrHw  2    Word  Prewuor 
In  oddilian  to  the  new  feiilur«( 
above... 

Spelling  Checkei  incorporated  in  program 

(requircio  dictianary  disk) 
Spelling  Checker  now  run-,  ovtsr  300% 

faMer  Ihpn  in  t:irigfnal  Pockol  software 
Word  wrap  is  now  fully  outomatict 
Ability  lo  nrovG  columns 
Go  To  page  number  for  finding  ifiiormo- 

lion  m  long  lexlst 
Fully  automotic  upper  and  bwer  cose  type 

<Onversiont 
Enhanced  Delete  process  for  word,  line 

or  paragraph 
Word  Count  feature  for  essoys  and 

assign  mentst 
Enhanced  split  memory  mail  merge  option 

Pockef  Manner  3    Spreadsheet 
In  odditon  to  iiie  new  features 
above... 

Individual  column  widlh  selection  now 

avatloblet 
Multiple  files  rn  memory  with  cut  ond 

paste  capability 

Serious  Software 
That's  Simple  to  Use 


Abfe  to  print  marhematical  formulae  os 

well  OS  results  of  ca  ktilations  t 
Global  larmatting  option 
Enhanced  row/column  inserr  deletet 
Logarithmic  ond  XY  graphing  capability 
Increased  filecompalabiiily  with  other 

spreodsheelst 
Numbpr  of  rows  increased  from  99 
lo2S0t 

PockalF]l«r2   Database 

In  oddiHort  to  flw  new  features 

above . . . 

Dynamic  cakulolioni  during  do»a  entry 
tntelligeni  re  entry  to  enter/edit  mode 
Easier  file  conversion  from  other  software  t 
Automatic  index  updating  lor  constantly 

sorted  filet 
Enhanced  mathemoMcol  longuoge 

Including  Eoopi  and  lobefst 
High  speed  sort  using  dynomi<  buKeringt 
Automatic  entry  of  repelotive  doto  t 


*  Commodore's  Microcomputers 
Maga/inu.  ^lvdup^;t^dotl1  rfviowers.  roted 
the  ofiginol  Pocket  Writer  I2B/64  and 
Pocket  Planner  128/64  software  the 
"Annual  Best  of  1986"  in  the 
prod  uctivity  cotegory. 

Commodore  it  a  regiircred  trodemaek  of 
Commorioro  Buiiness  Machtncs  Inc. 

tFcnlure*  availoblp  far  Commodore  64 TM. 

C  KS6  Diniln>^<i>i>t>"n<.  Inr 


Pocket  Writer  2,  Pocket  Plonner  2  and 

Packet  filer  2  togelher 
Convenient;  get  all  three  integrated 

opplicolionsat  once 
128/64  voflworeon  some  disks 
Economical;  $  179.85  (U.S.)  worth  of 

software  for  only 

$99.95  (U.S.) 

Pocket  Writer 
Dictionary 


PocicetWnler 
Dictionary 


Mokes  Spelling  Checker  faster  and 

simpler  lo  use 
More  convenient  than  developing 

personol  disk 
,12,000  words  availa  ble 
Expandable  lo  40,000  words 


(nfernotiono)  Diilribulor  Enquiries  to: 


Digital 
Solutions 


f/  Inc. 


2-30  Wertheim  Court 
Richmond  Hill,  Ontario 
Coroda   L4B  IB9 
Telephone  (416)  731-8775 
Telex  06-964501 
Fax(416)731-8915 


The  Best 
Just  G0I  Better 


"  The  Bard  is  Back ! " 


77 

/~^rom  impossible  dungeons  and  split 
^  second  snares,  the  Bard  and  his  party 

emerge.  The  Sceptre,  so  long  for- 
gotten, gleams  with  power  like  an 
exploding  sun.  Even  Phenglei 
Kai,  the  ancient  arehmage, 
bows  his  head  in  awe 

"1  smell  serpents!"  SUpfinger 
squeals,  stealing  away  like 
the  thief  he  is.  Two  arch- 
dragons  slither  out  of  the 
ground,  their  eyes  burn- 
ing with  the  relentless 
fury  of  treasure  lost. 

Protected  behind  the  flame 
lizards,  beyond  the  reach 
of  normal  weapons,  a  cack- 
ling wizard  begins  the  eerie 
chants  of  a  death  spell.  A  spell 
that  can  finish  the  Bard 

and  his  party 

The  time  has  come  to  battle-test  th 
magic  of  the  Destiny  Wand  -  and  reveal  the 
awesome  powers  of  The  Destiny  Knight.' 


The  Best  Ever 

Dungeon  Role-Playing  Game 

'jO'Xi  biKKi-'r  than  Bard's  Tale7 

•  An  all-new  story  line. 
Six  cities  and  a  huge  overland 

wilderness  to  explore. 
•   Doiens  of  new  spells  — 
79  spells  in  all. 
•   New  real-time  dungeon 
puzzles.  You  have  to  get 
through  them  before  the 
clock  stops  ticking. 
•  Summon  and  name 
monsters  to  become  a  per- 
manent part  of  your  party. 
•   More  strategy  in  combat 
encounters  -  the  weapons 
and  spells  you  choose  de- 
pend on  the  enemy's  distance. 
A  bank  and  casino. 
A  starter-dungeon  for  build- 
ing up  your  low-level  characters. 

•  6  guilds  for  easier  game  saving. 
Optional  use  of  Bard's  Tale  charac- 
ters. Bard's  Tale  experience  not  required. 

•   Cluebooks   available   for  both   Bard's 
Tale  and  Bard's  Tale  ir 
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Vou  (4lC  a  new  class  of  matjic  user  -  the 

Arehmage.  With  8  powerful  spells  like 

Heal  All,  Fanskar's  Night  Lance,  and  the 

anesome  Mangar's  Mallot. 
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There  are  over  100  monsters, 
like  this  Kner  Drone.  Many  animated. 

All  dangerous. 


25  scrolling  Juns;eon  levels. 

All  in  color.  .All  3-D.  Including  7 

different  Snares  of  Death,  a  new  kind  of 

real-time  puzzle. 


The  Bard's  Tale  II 

The  Destiny  Knight 

from 


ELECTRONIC  ARTS" 


HOW  TO  GET  IT:  visit  your  rciailer,  tiT  call  SOO-245-4525  (in  CA  call  800-562-1112)  for  \'IS.A  or  MasUTcnrd  nrJtr-..  To  buy  by  mail,  stnd  a  check,  numcy 
order,  or  MSA  or  Mastercard  informaljon  to  Electronic  Arts,  P.O.  Box  7530,  San  Matto.  CA  9440^.  The  price  is  539. 9S  iov  ihe  Commodort'  64  version.  Add  $5  for 
shipping  and  handling  (S7  Canadian).  Allow  1-4  weeks  for  delivery.  The  Bard's  Tale  II  and  Electronic  Arts  are  roKisiered  trademarks  oi  Electronic  Arts.  Ulrima  is  a 
registered  trademark  of  Richard  Garriott.  CommodorL'  is  a  trademark  of  Commodore  Electronics  Ltd.  For  a  copy  of  our  complete  catalog,  send  50c  and  a  stamped, 
self -addressed  envelope  to  Electronic  .Arts  Catalog.  1820  Gateway  Drive,  San  Mateo,  CA  94404. 
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How  to  Build  a  Light  Pen 

To  the  Editor: 

I  would  like  to  thank  you  for  publish- 
ing "Ho\\'  to  Build  a  liglit  Pen"  in  llic 
January  198''  issue  a[  Coniniodore 
Magazine.  As  a  result  of  tlie  iirtiele,  I've 
already  constructed  se\enil  of  tlie  light 
pens  for  my  friends  :ind  tor  myself. 

I  would  like  to  point  out  that  the 
Motorola  'Ijpc  MRD  300  phototninsistor 
Ls  quite  hard  to  locate.  Ilo\\'e\er,  tlie\'  are 
av'ailable  friom: 

PioneerfWashingtaii 
OlOOGaittKfRfuul 
Gaithersbitig.  MD  2()H'^7 
Tel:(3()lj92}-()6m 

The  cost  for  each  of  the  MRD  30<)"s  is 
SI  ,88  each  and  a  S  10.00  minimum  order 
Ls  required. 

1  checked  ;d]  lociil  distributors  in  an  at- 
tempt to  locate  tlie  .\1IU>  300  juxd  fin;aiy, 
through  Motorola  Customer  /Vssistiuiee, 
was  able  to  kxate  them.  I  would  -.d.so  like 
to  point  out  that  tlie  .MRD  300  is  Hir 
superior  to  the  alternate  Radio  Shack 
pliototransistor. 

Just  one  word  of  caution  concerning 
itsscmbly  of  the  ligjit  peas.  Take  \oiir 
time  in  assembling  thcni  ;md  tr)'  to  lo- 
ciite  a  magic  marker  sliglitly  kirger  th;in 
v^iiat  Ls  indic^atcd  in  tlie  ;irticle. 

I  am  currcnd}'  using  tlie  light  peas 
with  Commodore's  Micro  llliistnitor 
witli  litde  problen^s,  ;md  1  am  experi- 
menting %\itli  some  otlier  softwjire  pack- 
ages. 

Keep  up  die  good  work. 
John  0>t>erson 
Frankfort  Kentucky 

What  to  Do  with  Your 
Christmas  $$ 

To  the  Editor: 

In  the  article  about  what  to  do  witli 
your  Christmas  money  in  tlie  Ninemlxr/ 
IX-cember  1986  issue,  1  took  ollen.se  at 
your  comment  on  the  Coleco  Adam 
computer  in  the  p;iragraph  about  the 
chocolate  computer  sold  by  l^)ng  Grove 
Cofifectionery  Compjuiy  ( " .  .  .  ;uid  nms 
just  as  much  software  :ts  a  Coleco  Ad;uii. 
Maybe  more.") 

I  have  both  a  Commodore  6-j  ;uid  an 
Adam.  While  1  use  the  64  for  serious 
work,  I  use  the  Adam  for  playing  games 
—  and  very  good  games  too!  (jreat 
games  that  were  ne\er  rele:Lsed  for  tlie 
64  like  Slither,  Tiiiijo,  Dukes  of  Hazzanl 
Sttbrock  Space  Panic,  Camiixil,  Sniwfs. 
Bump  'nfunip,  Bergertinie.  Venture. 


Ladybug  Frenzy]  Time  Pilot,  and  Mouse- 
trap. And  my  personal  fa\-orite,  C.ablxige 
Patch  KicLs  —  there  is  nodiing  like  die 
si^it  of  seeing  a  cning  Cabbage  Patch 
Kid  sink  in  a  tar  pit! 
Mr.  Dennis  R  Schliebener 
Louisville  Kentucky! 

Copy  Protection 

To  die  Editor: 

Al  Met2  stated  in  his  letter  in  die  Feb- 
ruary issue  that  most  companies  ^\i]l  sell 
you  a  replacement  copy  for  a  minimal 
fee,  and  that  you  shouldn't  even  neetl 
tliat  since  your  softft'are  should  last  in- 
definitel)',  barring  any  accidents. 

1  dont  agree  with  this.  Let's  say  you  do 
have  an  accident  First,  what  if  you  can't 
afford  to  wait  for  a  copy  to  ;irri\e  from 
die  comp;my  because  you're  working  on 
a  cnici;il  project? 

Or  what  do  you  do  if  tlie  softw;ire  is  li- 
ceascd  and  the  creators  of  the  pn)gram 
can  no  longer  sell  the  program  or  a 
backup  copy  of  it?  Tliis  happened  witli 
Microsoft's  Mtiltiplan,  which  was  li- 
censed to  Ep):x. 

Or  what  happens  when  a  compiiny  has 
brought  out  a  newer  version  of  a  pro- 
gnim  ;ind  will  not  sell  you  a  backup  Ix-- 
cause  you  o\mi  an  older  version  of  tlie 
program.  This  happened  to  me  with  VIP 
Professional  version  7. 1 . 

Both  these  programs  are  very  gtxxl, 
;uid  1  do  not  regret  buying  dieni,  Hut 
they  tlo  illustrate  that  sometimes  you 
CLinnot  get  backup  copies  of  soft\\:ire 
f(X)m  the  m;inufitcturer. 
Daniel  Leivis 
Butte,  Montana 

Don't  Panic— Yet 

To  die  l:ditor: 

1  would  like  to  congramlate  ;ind  sa\' 
tliank  you  to  Gar\'  V  Fields.  His  ardclc  in 
the  February-  issue  of  Commnclore  Mag- 
azine is  very  good  and  to  the  point.  1  am 
a  new  user  and  many  times  I  have 
bkuiied  tlie  equipment  :ind  sofnv;ire,  but 
so  far  it  h;is  alwa^'s  been  my  fiiult. 

I  have  had  that  feeling  of  p.uiic  and 
probabh'  will  m;iny  more  times.  It  is  so 
eiLsy  to  forget  one  tiling  tliat  c;ui  cau.se 
you  iill  kinds  of  problems.  But  as  he  s;iys, 
if  you  stop  and  check  out  what  you  are 
doing  step  by  step,  it  sometimes  helps. 

I  just  had  to  comment  on  this  article 
because  1  enjoyed  chuckling  to  myself  at 
the  truth  of  it. 
Rofyert  E  Decker 
Glenn  Michigan  g 
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ORDER  RIGHT 

GREAT  PRICES 

"We  buy  In  volume  and  pass  the  savings  onto  you!!!" 

FAST  SERVICE 

"Over  90%  of  all  Items  ordered  are  In  stock  and  shipped  within  24  hours." 


"Software  orders  over  $50.00  wilt  be  shipped  Federai 
Express.  You  only  pay  TCP's  standard  shipping  charge 
of  $4.00  per  order.  This  offer  also  valid  on  peripherals 
and  accessories  under  8  pounds.  Orders  arriving  before 
1 1 :00  am  our  lime  will  be  shipped  ou!  same  day." 

BEST  SELECTION 

"We  stock  hundreds  and  hundreds  of  products  for  commodore 
computers!  Every  week  we  add  even  more.  We're  the  first  to  gel  in  all  the 
hot  new  software  releases.  Just  another  reason  why  we  should  be  your 
first  call!!" 


fc;(i^2^^ 


President 

TUSSEY  COMPUTER  PRODUCTS 


"I'm  proud  WQ  deliver  all  of  these.  Response  from  tens  of  thousands  of 
satisfied  customers  can  only  mean  we're  doing  mail  order  right!" 


EDUCATIONAL 

&  CORPORATE 

ACCOUNTS: 

We  offer  a  full  tine  of  services 
catering  to  you.  including;  quick 
turn-around,  personal  servfce,  and 
the  flexibUity  to  serve  your  organi- 
zations needs.  Credit  Approval  in  24 
hrs  f  or  any  organization  with  a  good 
D&B  rating. 

To  r&ach  our  Educational  and 
Corporate  Sales  Department 
directly.  Call  1-a00-533-1131  or 
Inside  PA  Call  814-234-2236 

OTHER  CUSTOMERS 

PLEASE  CALL  THE 

NUMBER  LISTED  BELOW 


COMMODORE 

1660  MODEM 
COUPON 

witfi  the  purchase  of  any 

of  these  packages  ordered 

MAR  29lh  or  before* 


f-     '-^ 

Commodore  128  computer 

1571  Disk  Drive 

$478.00 

Commodore  128  computer 

1571  Disk  Drive 

1902A  Monitor 

$737.00 

Commodore  64C  computer 
1541  Disk  Drive 

$349.95 

Commodore  64C  computer 

1541  Disk  Drive 

1802C  Monitor 

$549.95 

'Coupon  is  redeemable  by  maii  for  (1 )  1 660  f\^odem  -  Caii  lor  more  information. 


CALL  TOLL  FREE 


1  -800-468-9044 


Inside  PA 

Call  814-234-2236 


uut:)  MAIL  ORDEk  right 


OPEN:  9am-8pm  Mon-Fri,  lOam-Spm  Sat  EAST  COAST  TIME 
NEW  HRS  STARTING  MAR  01:  9am-9pm  M-Thur,  9am-6pm  Fri,  10am-6pm  Sat,  Noon-6pm  Sun 


NEW  TITLES 

IN  STOCK  EVERYDAV!' 
I(  you  donl  see  what 
you  wani  please  call!! 


MISr  flAMES 

H66W SCALL 

Satsonlll    S37  95 

Mufdsr  By  )h8  Dozen  ,  ,  ,       S?4  9S 

Beach  Head S24  95 

Beafih  Head  2 S29  95 

Leader  Boara  S29.9& 

Leader  Board  Toum.  D  SK    Si  6.95 

Tenlh  Frame S27  95 

Al  I  0!.\I)1£ 

Dam  Bgsters $22  95 

Figril  Nighl £22  95 

Hard  Ball $22-95 

UwolmsWesl $22-95 

PSI 5  ifading  CO  --  ..  $22,95 
spy  vs  spy St2.49 

\Lrit)\SOFT 

Call  (or  pr^ce  an  a(i  Actionsofi  iities 

\(    i  l\'lSrf>N 

Afcaiaf  S1995 

Borrowed  Time  $19  95 

Comp  FirevyksCeiebrarn  $19  95 
Coynicown  10  shuiOQwn  -  SI9  95 
Fasl  Tracks  Slot  Car  ConsT  $19  95 
Gamemaker  Sc'Ei  LiDrary  515  95 
Ga^er^aker  Spons  Library  515.95 
Garry  Ktcrieri-s  Garsemakr  S24  95 
G9A  Baskelpail  2  o-i  2  £24  95 

GnoBBuSlers $24  95 

GrealAmerRR - $24-95 

Haoier     $19,95 

HaOier  11  -     $24  95 

1  am  trie  64 _ $2195 

lamina  128 $24  95 

LRIeCcmp'jler  People   -       S24  95 

raster  01  Largos  519  95 

PAndstiadow    S19  95 

On  Court  Tennis  $21  95 

Piiiaiiii  LosiCaveris  $19  95 

Snangnai  £26  95 

Space  Shunie  $19  95 

Star  Rank  Boiing  $2195 

.\n  ruuio; 

hfemalional  Hockey $1895 

.\VAl.nN  HILL 

DrRulh $21-95 

GuHstnke S22  95 

SplfireiO $J4  9S 

SuperbOAl  Sunday  $25  95 

Team  Disk  (or  SS  Si  6  95 

llUnlil-ii!;i  \T) 
Champsnp  Lode  Runner      $24.95 

Karateka  $19-95 

Lodenunner  $24-95 

MuMSnop    S2S95 


WWMtV 


IIK3.iHinifc5iiC 


reroo! 

All  Games  stocked  for  quick  shiplll 


liUKruii- 

Baron       „ 

Millionaire „.... 

Tycoon  

i  (IMMlMKHtK 

Sky  Travel 

I).\vti)S()n,ik.vss(.)H 

now  in  stock!  q^h  |gr  poce  i 

i).\].\i;.\sr 

Ccn^marido 
Karate  Cnamp 
Kung  Fu  master 

;i\i.\  sii|-r 

Pole  Posit«n 

I  i  >:<  ifdivri  ,vifi>- 

Adventure  Constr 
Amencas  Cup 

Amnesia 

Arcrvon      „..«„__..™^,- 

Archon  2    . „ — 

Arte  Fo*   „»„..„.„™._„- 

Autoduel .....»..» — ... 

BartTti  Ta* 

Bard's  Tale  ft 
Sattielront 
earners  at  War 
Cnessma^ief  2QC0 
Cui  and  Paste 
Europe  Aplaie 
Hard  Mai  Mac* 
Mean  ol  Africa 
LordS  01  Conquest 

h/ail  Order  Monsters 
h/arp'e  Ktadness 
htoebius 
wo^eWaker 

VULE 

Murder  Party 

Music  Conslruction  Set 

Ogre 

One  on  One 

Pinball  Conslrgdion  Set 

Ouizam 

Raong  Destruclion  Sal 

Reacri  fortne  Stars 

Realm  ot  Impossible 

RaPot  Rascals 

Seven  Cities  ol  Gold 

Sky  Fo> 

SoUware  Gokjen  Qkjies 

Siariieer  I 

S'joer  Bolder  Dash 

Tim  Leary's  Mind  mirror 

Toucnoown  Footoall 

Ultma  I  - 

Utama  1)1 ,™— _ 

Ultima  IV 

KI'VX 

Championstiip  Wrestling 

Movie  Monster 

Summer  Games 

Summer  Games  II 

Super  Cycle 

Tempie  Tnogy 

Winter  Games 

World  Games 

Worlds  Gieaiesi  Baseball 

Wonp's  Greatest  Football 

World  Karate  Cna 

Call  lor  pflces 

ort  other  EPYX  products 

ITlil-liUaj 

Elite 

Pawl 

INTOCOM 

Bailey  Hoo 

CutTnroatS 

Deadline 

Enchanter  

Hilchtiiker's  Guide 

Infidel 

Leather  Goddesses 

lAxn  Usl 

PlanelfatI . 


$24  95 
S24  9S 
$24  95 


$24  95 
$26  95 
126  95 

£1595 

$27  95 
$24  95 
S29.95 
$1295 
$27  95 
$24  95 
$37  95 
$32  95 
£29  95 
$29  95 
537  95 
£26  95 
$1295 
$37  95 
$13  95 
$12  95 
$24  95 
£12  95 
$27  95 
$29  95 
$27  95 
$1295 
$25  95 
$12  95 
$29  95 
$12  95 
$1295 
$20  95 
$1295 
$32  95 
$1295 
£29  95 
$1295 
$24  95 
$1696 
$32  95 
$1295 
$24  95 
$22  95 
$29-95 
$37.95 
$4595 

$27  95 
$22  95 
$26  95 
£26  95 
$29  95 
$29  95 
£27  95 
$29  95 
$24  96 
$29  95 
£22  95 


$22  95 
$27  95 

$29-95 
$2295 
$2595 
$25  95 
$22  95 
$29  95 
$24  95 
$24  95 
$25  95 


Sorcerer 

SpeitbreaKer..._ 

Suspect  ..... 

Tnnrfy     .„._ 

Wishbnngef .. 

Witness .  .  -....^-.>»„........««... 

Zorki     

Zon>ll      

ZOrHlll       

INVISiCLUE  BOOKS  FOR 
ANY  IHFOCOM  GAME  $E 

i.\Mr  !i  M  \t  :; 

Final  Four  BasketDall 
Basketball,  the  Pro  Game 

Mu  i;i>i.i:.\iaT 

MiCrcleaQue  Baseball 
w.crcieagje  cereral  rngr 
fAcrcleag-je  1935  teams 

Mirr.iii'Rd.-^h: 

Aerojet 

Crusade  in  Europe 

Decision  in  irte  Desen 
F-i5Sinke  Eagle 

Gunship  

Confbct  in  Vietnam 
Helk^l  Ace 

Kennedy  Aporoacn  

NATO  Commander 

Slen;  Serv<:a 

Solo  Flight 

Spitfire  Ace — 

Too  Gunmen 

MI.M)SC.\i'K 

Bank  Street  MuSiC  Writer 

Bank  Slreet  Storybook 

Bop  n-WrestiB   

Casile  Clobber  

HalleyProiect 

Indiana  Jones 

Indoor  Sports 

Infiltrator -,. 

Quake  minusone     


$29  95 
$29  95 
$29.95 
$32  95 
$2595 
$25,95 
S22,9S 
$26  95 
$2695 

95 

$29  95 
$29  95 

$27  95 
S27  95 
$15  95 

$24  95 
$27  95 
$27  95 
S21  95 


$21  95 
$24  95 
$24  95 
$21(95 
$24  95 
$21  95 


$27  95 
527  95 
$21  95 
SlB-95 
527  95 
$22.95 
£22  95 
$21  95 
£1795 


Shadowfrre $17  95 

Star  Trek  Pfomethian  Adv  $29.95 

Perlect  Score  SAT  prep  $49.95 

The  Lords  of  Uidnighl  $17  95 
Call  for  prices  on 
other  MINDSCAPE  produclst 
i;.\|i  ■,!;,- 111'. 

Floyd  the  Droid       $19  95 

Maps  USA       $34  95 

Maps  Europe       $34  95 

Work)  Maps       $34  95 

-li  1CH.\ 

Champtonshio  Boxing  $  1 7  95 

>l.M(l\,^  SHI  <li:ii 

Paper  Airplane  const  £CALL 

JK  Lasser-s  Income  Tax  $39  95 

Kermil"s  Story  Maker  $19  95 

NY  Times  Crossuvorfl  Puizfe 

Vol   tor 2  $14  95 

Soy  Hunter  .  $31  95 

Star  Trek-Kgbayashi  all  $29  95 

Typng  Tutor  III  .  $29  95 

.-^I'l'lTKlMIIOLOfiVrii: 

Gato         $CALL 

■-I'KINCHO/UU) 

Early  Games $26  95 

Easy  As $29  95 


I  -0-1  D,\TAr!.\.SK.'; 

Bank  Street  Filer $34  95 

Consunant  -       $39  95 

Data  Manager  $1995 

Fleet  Filer „ $29,95 

Pocket  Filer  64 $24  00 

Prolile  64 $36  95 

I  -*.l  IvreORATED  l'K(;s 

Homepak  .,.,. £39  95 

Tno 5CALL 

Vuasiaf  8k $79.95 

r-*4  SPREADSHEPH'S 

CaM  - $39  96 

Pocket  Planner  64 5CALL 

Ptaciieaieia)  or  (II  SCALL 

PS.  Programble  Sprdshl      $19  95 
SwiRcalc  64  w's^eways       $39  95 

Sid*ays     $19  95 

Vijastar64  579  95 

( -,;i  unnn  pklK !-iS.-=<Ti).-- 

Bank  Street  Wnter  £CALL 

Bank  Street  Speller  534  95 

Cui  S  Pa5le(E0Al  S12  9S 

Fleet  System  ii  £CALL 

Foni  Master  II $34  95 

KkJProQuo $32  95 

Paperclip  $37  95 

Paperclip  w/spellpack $49  95 

Pocket  Wnter 5CALL 

Pocket  Wnter  Dictionary  --  $19.95 

Sp9lpro64 $32.95 

Tlio. $CALL 

Wordpn^3./64 $14  95 

WordPro  64  $36  95 

WordPro  GTS         $CALL 

Word  Writer  64  w/speller      $34  95 
FIN.-VVLTAT  A;  MSCT. 

Casht»« $36-95 

Com  HomeAcct $46  95 


P.oce  of  rake  Math 

$26  95 

-1  111  (Kilr 

Flight  Simulator  II 

$32  95 

Foolball 

$37  95 

FSIISceneryd.sk 

$•5  95 

Jet 

$29  95 

Nighl  Mission  Pinball 

SCALL 

Pure  Slat  Baseball 

$37  95 

UKKKl.V  ltK.\l)i:t(.s 

IH  H\ 

nr.\ns()n-vv,\RK 

now  in  stock'  Call  lor  pnco  on  titles' 

Random  House.  Spinneker, 

and  SSI  products  fn  stocklfl 

Call  tor  PrIcBl 

WM 

Financial  Time  Machine 

$29  95 

Soflsync  Pars  Acct 

$32  95 

TimewoiVs  Electr  Chockbk  $19  95 

Timewor^s  General  Ledg 

r. 

A(R.A/P.  Payroll,  invioiy  e. 

$40  95 

Timewonts  Money  Mgr 

$19  95 

(.l!\!'!(l<  .s 

CADPIC  

$32  95 

Clip  An  1 „.... 

$19  95 

Clip  An  II 

SCALL 

Graphics  Library  1.  II.  or  III 

$16  95 

Grapn-cs  Scrapbk  1  or  2 

$17  95 

Newsroom 

$34  95 

P'cassos  Revenge  w/pen 

SCALL 

Pnnl  SrnKl 

$25  95 

Prim  Shop  Companion 

$24  95 

MI--1      n  \ltllU.M(F 

Estes  pwr  supply  lor  C-64 

554  95 

Naverone  3  Skit  expander 

£27  95 

LI  ii.iriK--; 

GT4 

£22  95 

Copy  II 64 

$24  00 

C  Power 

569  95 

CSM  1541  align 

$34  96 

Fast  Load 

$24  95 

MachS 

$24  95 

Merlin  fi4         

£34  95 

Pal  64    _ _ 

$32  95 

Power 64          .....  , 

$32  95 

Tooibo«B4 

$69  95 

OuBSi  Siai  manager               $34  95 
vofpai  rasm)adet                 SCALL 

FREE  LIGHT  PEM 

w  putcha'.eolPicasio'i 
nr-vnqf?  Piiinlmg  Program 

S42.95 

INFORMATION  AND 

PA  ORDERS  814-234-2236 


■PRINTERS- 

=!!:^I5: 

'  NX-10 

r      =RCL  DROP  10 

"  " ■'  $207.95 

NP-10 -  -.-  S184.95 

NX-IOC  - -. SCALL 

NX-15    5349.00 

NL-10C  SCALL 

POWERTYPE S229.00 

iBcps.  daisywheel 


BROTHER  1509 

160  CF3  DOT  tlATHIJ  pfillllEB.  15 

CARRIAGE    FRICIION  AHD  1R4CT0R 

FEED  4if  CPS  riLO  MOOE    A  .IK  (luFFtH 

USES  EPSON  f=X  PRIHT  C0DF5 


_  Epson  Printers  i  ,.»..i»ni, 

|4J?»!?I'  LX-SO  $229.00 

HBiJK  HOMEWRITER  10     SCALL 

^r    ^H  Fx-ase    .  s^sa.oo 

■     ■,  FX-23Ee  SCALL 

^B     ^F  nX-100    S279.00 

^^^^  DX-10     SCALL 

HS-80  INKJET  SCALL 


Fontmaster  128... 
Fontmasler  64  .... 


SCALL 
S34.95 


SEIKOSHA 

SP-1000VC Si  64.95 

«JLIKI 

61  OOP SCALL 

551  OP  includes  CQk3f  kit  - $CALL 

Printer  Interlaces 

MW-3SQ  t.  1  D-.  C-"Br SCALL 

XETEC  Supergraphli SCALL 

XETEC  Supergraphiir  Jr $45.95 


PANASONIC 

1080i  $199.95 

1090i,  1092i SCALL 

3131  Daisywheei  SCALL 


TUSSEY  COMPUTER  PRODUCTS   fr^rl^c^oT/aE  p.  aaa^ 


DOES  MAIL  ORDER  RIGHT 


CALL  TOLL  FREE 


1  -800-468-9044 


MONITORS  i^aaam 

( iiMi'(isin-:c"()i.(m 
Call  (Of  Composite 
Color  Monitors 

iinvoniiioMr 

ZENITH  li!0  12-ilatlmbor   J94  00 

ZEMTH1!30gre9n 194,00 

GOLDSTAn  12'  mod  rosDlulion 

amber  or  green $7395 

MAGNAVOX  8562  2  y  worranly 

mQnochromB  mode $259.55 

THOMPSON  3651 2VC  mono  modo 
sep3ra!Gd  video S2^9-9S 

MODKMS  ^^■■■i 

SHAREOATA t369i 

VOLKSSiBOlMHSmtjua  SCALL 
^VESTRIDGE  $49  95 

MESSENGER H2  95 

1660  ..SCALL 

MITEYMO 459  95 

VIPTEHMIHAL  S34  95 

COMPUSERVE  SrR  KIT  S19  95 
PLAYNETSTAHTEHKIT         S14  95 


CMS 


General  Acct  System 

includes:  *  G«ncrat  Ledf^er 

•  Accts  Roceivablo  •  Billing' 

Sutement£  •  Acrts  Payahlt 

•  Chrrk  Writinc  •  Job 

Costing  •  Payroll 

Pkg.  Price  fpr  all  Modules: 

CljavBrsion  S124  96 

C5JvBi5iotl  $119  95 


TCPIaadatliewaylll 


128  AND  64 

HARD  DRIVES 

FHOM  JCT 

Plugs  ifiia  \r\v  ii^-ik  a'lta  p^ti  ^u&i  !«• 

)<«ir    mairirJ;^    on    ih»    n:acha.-i.c4l 
pottion  oi   \n»  Htfd  Dti-^A.   1   Yat 

MODELS  AVAILABLE: 

JCT  1005,  Smb    ..........  SCAI.I, 

JCr  JOIQ,  IQoib ,  SCAIJ, 

CjiU  for  bcAl  priced 


Bffjderbuncl- 

Broderbund  Print  Snop  .  $25. 9S 
Prim  Shop  Comparvlon  ..  $22.95 
Giaphids  Library 

I,  II.  or  III $16.95 

120  shDAi  color  paper  rem 

40  each  red,  blue,  gold  ..   $3.95 

Coniricato  Maker $32,95 

Thinhino  Cap $32.95 

Certlllcala  Library $24.95 

Toy  Shop $42.95 

Holiday  Pack $16.95 


PRINTER  PACKAGES 

ALL  PRltfFERS  INTERFACE  WITH  C-64  or  C128 

NX-lb  &  XETEC  SUPERGRAPHIX....  S269.95 
NX-10  &  XETEC  SupergrapHix  Jr S2'19.95 

PANASONIC 

10801  and  Xelec  Supergraphix  ....  5259.95 
10801  and  Xelec  Supergraphix  jr .  $244.95 

SEIKOSHA 

Call  for  price  on  new  SP-1200  packages 

OKIDATA 

Okimate  10  Color  Printer 

and  Plug  'n'  Print  Module $159.95 

EPSON  SCALL  FOR 

ESa  LX-86  &  INTERFACE.,  LOWEST  PRICE 

UDX-10DAISYWHEEL& 
XETEC  Supergraphix  Jr S219.95 

BROTHER 

1509  &  XETEC  SUPERGRAPHIX S419.00 


SUPERGRAPHIX 
Inlcrfaco  wBk  butfer 
down  loadable  lonis 
SSSLQWEST  PRICE 
SUPER  GRAPHJXJR 
prinlQr  ir^larlace  $46.95 


Abacus 


iiiiiiil!!! 


wo IV  m  STOCK!!   Can  tor  price 
on  all  tooks  and  software  titles 


'  DISKS 

pur bai  ol  10 
BONUS  DISKS 

SS  DD  S6.45 

DS.OD $6,95 

NASHUA  DISKS 

SS,DD S8.S5 

DS/DO    S9.45 

TUSSEY  DISKS 

:;3nD  S3.43 

IJ.3/DD  S3.95 

CaW  tor  Piles  on 
Vvlbiitirn  iincJ 


1«^ 


Pocket  Writer  :  ,...  $42.95 

Pocket  Filer  2 $42.95 

Pocket  Plinncr  2  $42.95 
Digital  Superpak .,  $74,»S 
DIcllonary $12.95 


MODI.M  M,\M A 

1670  MODEM S99.95 

1200  Baud,  w/Soltware 

1660  MODEM S42.95 

300  Baud,  w/Sotlware 


Priiilmaatar $29.95 

Art  Golrorv  SCALL 

SOLUTION 

UNLIMITED 

Icon  FacTofy  $29  95 

Billbutd 

Maker $29!.= 


Software  orders  over  $50.00  will  be 
shipped  FEDERAL  EXPRESS  (yes,  even 
with  these  prices) 

You  only  pay  TCP  s  standard 
shipping  charge  ol  $4  00  per  order 
This  oMer  also  valid  on  peripherals 
and  accessories  under  B  pounds 
Orders  arriving  belore  1  1  00  AM  our 
lime  will  be  shipped  out  same  day  ' 

Computerized  order  entry,  processing 
and  status  allow  TCP  to  serve  you 
faster  and  better! 


COMMODORE  12-8: 
SOFTWARE 

For  128  in 

128or  CPM  modes 

UOItll  I'liOt  ll.'iSOHS 

FLEET  SYSTEM  II  w/spell  $47  95 

FLEET  SYSTEM  III  SCALL 
w  speii  S  ifiesaurus 

FLEET  SYSTEM* SS€  95 

JANE           532  55 

PAPERCLIP  II  $CALL 

PERFECT  WRITER  SCALL 

POCKET  VVRTER  128  SCALL 

SUPERSCRIPT  128  $59  95 

TERtJ  PAPER  WRITER  S34  95 

ViZAWRITEISe  SCALL 

WORDPRO  129 $59.95 

WORDPRO  ISSSw.'spell    -  SCALL 

WDWHITER12aw/5pell    .  $49-95 
srlli  All.'-.lll.l',  IS 

EPYX  MULTIPLAN $39.95 

PERFECT  CALC  $CALL 

PCX;KET  PLANNER  I2B  SCALL 

SWIFTCALC  128wjs0ways  $49  95 

I>.\r.\  ll.AM-S 

CONSULTANT $39  95 

PATE  MANAGER  129  SCALL 

FLEET  FILER  $29  95 

PERFECT  FILER  SCALL 

POCKET  FILER  126  SCALL 

PROFILE  128 $53.95 

SUPERBASE  126 SCALL 

-MISC     IL'-i   Sli|-n\.\F{i; 

A  MirxJ  Forever  Voyaging  ,  -     $26  95 

ACCOUNTANT  INC $69.95 

BUDDY  128  assembler  S42  95 

C  POWER  Irom  Prolne  S59  95 

DESK  MANAGER  126  $34  95 

iamineCi28.. $24.95 

VIZASTAR  1 26 

MACH  123    $39,95 

MATRIX  from  Profl  Penph       S47  95 

PARTNER  128 $54  95 

PERSONAL  ACCT  128  $34  SS 

SYLVIA  PORTERS  personal  SCALL 
finance  planner  $54  55 


(ILL  COMMODORE  PRODUCTS 
fct      ON  SALE  NOW!! 


AMIGA  PACKAGES SCALL 

AMIGA  EXTERNAL  FLOPPY SCALL 

1670  MODEM  $124.95 

1350  MOUSE S39.95 

CI  28  COMPUTER  SNEVER  LOWER 

1571  DISK  DRIVE SCALL 

1902A SLOWEST  PRICE  EVER 

1750  RAM  EXPANSION SCALL 

1802C S199.00 

1700  RAM  EXPANSION S99.00 


COMMODORE 


$169.95 


ONLY 

In.'ludcs  CEOS  4  Ouftntum  Link 
1541C  DISK  DRIVE..,..  SCALL 
1802C  MONITOR SCALL 


HBcrkeicy 
Soft  works 

GEOS S39.95 

Fontpack  1  SCALL 

V.'fliers  Workshop S33.95 

G&Odex S27.95 

Desknack      S22.95 


To  order  by  msfl:  Wo  accopi  monoy  ordei, 
cgriilied  check,  persanal  check,  Aliow  2  weeJis  lor 
personaS  chuck  !o  ctear 

Shlpptng;  $4  00  lor  software  and  accessoj'ies' 
SlO  00  for  pFinters  and  color  monilors/Se.OO  for  6\z'a 
drives  and  olhec  monitors/  Add  £3  00  per  box  sapped 
COO  Calt  (orol^er  sfifpfKng  ctigrges.-  Additional 
^hipping  r«q  jii«d  on  APO,  FPO.  AK.  HI.  arxJ  fofO<gn 
orders 

T»rmB:  ALL  PRICES  REFLECT  CASH 
DISCOUNT.  ADD  1.B%  FOR  MASTERCARD 
OH  VlSA.WjfijfactLi'^er'B  wjna'iiy  ^^c-!3rGd  >n:i 
ccpy  ot  oi,r  Lnvoce  ALL  SALES  ARE  FINAL 
Oefectr/B  lems  repiacod  or  repai'ea  a:  ojr  disc-eton 
Pennsytvama  fosider.ts  add  S%  sales  tcx.  Prccs  and 
Tarmj  $yb,eCi  to  cftarige  wiihoul  noice. 


m  li  through  Eornoovotsighl  wo  donthavo 
the  lowd^!  pries,  w*  wouW  appreciate 
thaopporiyniiy  lotjeatit  If  we  can,  you 
willge!  Iho  benelitol'Oi.r  Federal 
Eipres5  ^H  pping  cn  schwara  orders 
Oi/ej-  $50  00. 

■  Fjichase  orders  aro  accepted  from 
Qualified  cofporatoos  and  mst^tulons 

M  NosalftstaxonordarsouiS'deaJPA 

■  9uy  vt/iihcontdflncs  Wa  hor>ormarlU'' 
tacIuf  ers  waf  raniy 

■  W«acceptMast0r[:aid.  Visa.  COO  and 
ma  I  orders 


CALL  TOLL  FREE  1-800-468-9044 


Lip  in  niillLstconds. 
A  U.'  City  1)1 
London  Englmui 


Hints  for  Fvin  and  Utility 


COMPIUED  HV  LOUIS  F.  SANDER 


V^omputing  is  a  wondcrRil  activity  on  :i  chill)-  dii\',  ;intl  this 
montlis  tricken'  is  sure  to  m;ikc  \'()iir  computing  time  more 
cnjo)'able.  If  you're  into  mati:  at  all,  several  of  our  tips;tre  sure 
to  interest  you.  If  you're  not  into  math,  give  tliem  a  tn-  :ui\"\vay 
Anotlier  gn)up  of  tips  covers  tile  nuts  ;uid  lx)lLs  of  connecting 
external  devices  to  your  computer.  Hut  :ls  alwaw,  of  course, 
there's  a  little  something  here  for  e\cn,-one. 

If  you  ha^e  an  idc-iu  tip  or  trick  tliat  vou'tl  like  to  share  with 
otliers  anjund  the  world,  write  it  iiji  ;uT(.I  send  it  in.  We  pay 
froni  SIO  to  S50  for  each  item  we  use.  Send  your  tricks  to: 

LouLS  F.  Sander 
PO.  Box  101011 
Pittsburgli,  PA  1=52.=^^ 

II' you  include  a  self-atldressed  stam]K-(.i  en\'elope,  we'll  send 
you  our  hint-writer's  guide. 

Permutations  and  Combinations:  These  make  up  an  inter- 
esting madiematical  subject,  readih-  iimenable  to  computeriza- 
tion. Permutations  ;uid  combinations  are  studied  in  college 
iuitl  in  advanced  higli  sclvx)!  malli.  I 'iiderst;uiding  tliem  helps 
sohe  m;my  problems  in  tile  ;irc"a  of  pn)habilit}-  and  statistics. 

A  permutation  is  an  ordered  arrangement  of  a  number  of 
s"\-mbols  or  objects.  X\'Z,  Z^'X  and  \'XZ  arc  permutations  of 
tlie  siimlx)ls  X,  \'  and  Z.  A  combination  is  a  permutation  that 
includes  tlie  same  objects,  regiirdless  of  tlie  order  in  which 
tlie)'  ;ire  ;irranged.  X"\Z,  Z^'X  ;uid  \'XZ  are  all  different  arr.uige- 
menLs  of  tlie  same  combination.  ViX^',  WXZ  ;uid  W^'Z  are  ex- 
amples of  different  combinations. 

If  you  wanted  to  know  how  m;ui\'  difterent  batting  orders 
woiikl  Ix-  ]X)Ssible  on  a  ninem;ui  b;Lseb;Jl  teimi.  you'd  itsk  a 
maUiemaiiciiin,  "I  low  m;my  pemiutaiions  are  tliere  of  nine  ob- 
jects taken  nine  at  a  time?"  If  you  could  ch(X)se  your  batting 
order  from  a  24-man  roster,  \'ou"d  :isk.  "I  low  mail)'  permutii- 
tioas  are  there  of  2-i  objects  taken  nine  at  a  time?" 

llie  accompanying  simple  prognim  c;in  st;md  in  for  your 
madiematician,  and  c:ui  gi\"e  ans%\ers  a  lot  fttster  tlian  he  can. 
Just  enter  tlie  nunilx-r  of  objects  (or  nunilx.'rs.  p!a)ers,  what- 
ever), luid  the  nimilxT  to  take  at  a  time,  llie  ;ias-\\er  will  come 


100 

110 
120 

130 

140 

150 

160 

170 
130 

190 

200 
210 

220 

230 


Permutations  &  Combinations 

PRINT" [CLEAR, DOWN, SPACE2] 

PERMUTATIONS  &  COMBINATIONS  - 

SANDER" 

PRINT" [D0WN,SPACE2] 

THIS  SHOWS  THE  NUMBER  OF  POSSIBLE" 

PRINT" [SPACE2] PERMUTATIONS  AND 

COMBINATIONS  OF" 

PRINT" [SPACE2] NUMBERS  THAT  YOU 

INPUT." 

INPUT" tD0WN2, SPACES] 

HOW  MANY  OBJECTS" ;N 

INPUT" [DOWNJTAKEN  HOW  MANY  AT  A 

TIME";D 

IF  D>N  THEN 

:GOTO  230 

P=1:C=1 

FOR  J=N-D-H 

THEN  200 

PRINT" [DOWN 


PRINT" [DOWN] TOO  MANY  I " 


TO  N:IF  1.7E38/J>=P 


]> 


1.7E33 

PERMUTATIONS! !" :GOTO  230 
P=P*J:NEXT:FOR  K=2  TO  D:C=C*K: 


PRINT" [DOWN] 
PERMUTATIONS 
PRINT" [DOWN] 
COMBINATIONS 
END 


NUMBER  OF 
=  ";P 

NUMBER  OF 
=";P/C:PRINT 


NEXT 


EMD 


Factorials:  In  matlicmatics.  the  fiictorial  of  N  is  defined  as  the 
product  of  ;ill  tlie  integers  between  1  and  N.  Comniodtjre 
computers  don't  have  a  built-in  feaorial  calculator,  but  you 
can  eiLsil)-  compute  tliem  with  tlie  following  routine,  where  N 
Ls  tile  numixT  whose  factorial  \ou  need. 

KM)  !•=  1  :  IX)RJ=  1  TO  N  :  F  =  PJ  :  NEXT 
tSiia  execution,  I"  will  contiiin  die  factori:il  of  N. 
A  W.Citym 
London  Ljigland 

Roots:  BASIC'S  SQR  flinction  will  easih'  find  the  square  nxit  of 
an)-  nimilx-r  tliat  tlie  computer  can  handle.  But.  what  if  )-ou 
need  a  cube  rtxH  or  other  nx)t?Jiist  use  lliis  simple  expressiiHi, 
where  N  is  die  number  whose  root  you  want  and  R  is  die  ntxit 
you're  looking  for. 

X  =  Nt(l/R) 
For  example,  to  deri\-e  die  fourth  root  of  32"'68.  enter: 
PRINT  32":'68  t  ( 1 '-* ) 
Juliii  litvnncin 
ftvefxihl.  New  Jersey 

Logarithms:  Most  of  us  who  know  about  logaridims  are  ac- 
customed to  common  k)g:iritlims,  or  logs  ttj  die  base  10.  But 
BASIC'S  logs  are  natunil  log;iritlims,  or  logs  to  die  base  e 
(e  =  2.71828).  Natural  logs  are  widely  used  in  electrical  engi- 
neering and  odier  fields. 

If  you  w  ;int  to  w-ork  witli  common  logs,  )-ou  caji  define  a 
function  that  will  make  tlie  conversion  for  you.  as  follows. 

10  di-;f  f?si^i\)=  LOG(N)i.(:xH  lo) 

Once  line  U)  has  Ix-en  execoited,  FNL(q )  will  give  die  com- 
mon log  of  q,  where  q  Ls  any  numeric  constant  or  expression. 

Continued  on  f>j>.  II) 
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INTRODUCING... 

Four  ways  to  address 
your  software  needs. 


One's  Really  Simple. 

Fleet  System  2"  is  so  user  friendly  beginners  can 

start  taping  dtjcumcnts 

in  minutes!    The 

integrated  90,  ()()()  word 

dictionan'  is  the  largest 

and  fastest  available  on 

the  Commodore  64. 

And  vou  can  even  add 
an  additional  10,000 
"Custom  "  words  to 
the  dictionary. 

-Suggested  Retail  Price: 
S39.95 


One's  the 
Ultimate. 

Fleet  System  4'"  is  our 
all  new  ultimate, 
integrated  writing  tool 
that  works  on  the 
Commodore  1 28  and 
combines  four  powerflil 
applications  into  one 
package.  It  has  every- 
thing you'd  find  in 
fJeet  System  3^"  plus 
Fleet  Filer"',  the 
database  that  puts 
information  at  your  fingertips,  in  seconds! 

Suggested  Retail  Price:  S79.95 


Fleet  System  3 

For  jmrCDamwdore  126 


One's  Really  Integrated. 

Fleet  System  5'"  the  user  friendly  software  package 

for  the  Commodore  128 
includes  an  integrated 
90,000  word  dictionary, 
On-Screen  Help 
Windows,  a  "Preview" 
function  so  "What  You 
See  Is  What  You  Get". 
There's  also  an  integra- 
ted Thesaurus  that 
provides  thou.sands  of 
synonyms  and  antonyms 
and  will  help  improve 
your  writing  and  vo- 
cabulary skills  instantly! 
Suggested  Retail  Price: 
$6995 

One's  a 
Creator. 

Fleet  Filer"  can  create 

an>thing  from  invitations 
to  mailing  lists.  You  have 
up  to  5,000  records 
which  can  be  sorted  in 
ascending  or  decending 
order.  You  can  even 
search  according  to 
logical  criteria  or.search 
string.  And  we've  saved 
the  best  for  last...  You 
can  input  and  output  to 
Fleet  System  I",  J",  and  4"  files.  (And  with  most 
major  word  processors).  Fleet  Filer^"  will  work  on 
Commodore  64/128  computers. 

Suggested  Retail  Price:  t39.95 


Fleet  J||k 
FUerW 

i^mmra^m,4,0t,mm.-~ 

m 

B 

Finally,  software  the  way  it  ought  to  be. 

Buy  it  and  experience  what  over  a  quarter  of  a  million  Commodore  users  already  believe  in 


flPSI 


CALL  1-800-343-4074  for  the  Dealer  nearest  you! 

Professional  Software,  Inc.  ^^^^^^^^^^^^^^^^^H 

51  Fremonl  Street,  Needham,  MA  02194    ^^^^^^^^^^^^^^^^^^^ 
(617)444-5224 


MccI  Sv-wt-ms  2.  .^.  ■*  anJ  Flee)  hkT  art-  dcMtjnfd  ilid  w-nltcn  hy  Viwtimrutlio  drcHjn  Inc.  —  Commodart  it4  3nd  I  iH  nv  tfadcmaHL*.  iif  { JimnMnitirt-  Klctrnmif^  iJd,  .'iimc  nrinlcr, 
may  not  .support  certain  HLXt  ij^tcmv  2, .%.  -*  or  Filer  funtlioa^  and/or  rt'quin:  and  RGB  montlur  Plea!<  thctk  nilh  >vur  dealer.  I>ealcr  and  Dislrihuliir  inquire?,  are  iii\  itcu- 


Contititieil from  /),i;.  8 

C:;dciil;iting  TNU  10000 )  will  return  a  value  of  i.  which,  of 
course,  is  tile  common  log  of  10.000. 

\-.\\\  A  bask;  lliiiction  closely  :Lss<xi:iied  witli  I.OCi,  calcu- 
lutes  die  viiluc  of  e  niiscti  to  tlie  power  inside  the  piirentlieses 
following  tJie  KXP.  If  you  need  a  similar  function  using  base  1 0 
ratlicr  tlKui  c.  you  c;ui  use: 

20  DKF  hMi(N)  =  EXP(N*LOG(10)) 

■^bu  can  test  it  by  getting  nVE(4),  or  10  raised  to  tlie  fourtli 
|K)wer.  If  you  know  your  higli  school  matli,  you  know  tliat 
dial's  10.000. 
Ricbcm!  Boivinan 
iiaskiii}^  Ridge,  New  Jersey 

Joystick  Port  Connectors:  It's  sometimes  uselul  to  con- 
nect things  odier  di;ui  jo\-sticks  to  these  pons.  Radio  Shack 
makes  a  Joystick  Extension  C!:ord  (#2"'6-19~'8)  which  is  very 
Liscfi.ll  at  tfiese  times,  "^'ou  can  use  it  as  Ls  for  an  extension  cord, 
or  you  c;m  cut  it  ap;irt  and  connect  )our  non-joystick  device 
to  it  directly. 

'Pie  ports  diemsehcs  t;>ke  a  connector  wideh'  used  in  tiic 
electronics  industr\-.  cidled  die  DB-9  Subminiaaire  D.  liadio 
Shack  has  a  \';iriet\-  of  tliesc  connectors  in  \'arious  configuni- 
tions,  complete  widi  ho(xJs  imd  otlicr  cable  protectors,  lilec- 
tnmics  p;irts  stores  have  e\en  hirger  \".irieties.  If  you  buy  one  of 
tliese  connectors,  be  sure  to  check  their  fit  in  your  computer. 
'Iherc's  never  a  problem  widi  tlie  connector  itself,  but  sonie- 
tifiics  tlie  slicU  mid'or  hotxl  will  interfere  with  the  computer's 
cabinet  or  witli  tlie  odicr  joystick  port. 
Mike  Simrcls 
Kausiis  City,  Missouri 

DEV  Connectors:  Tlie  round  connectors  used  for  \'idco  ;uid 
serial  bus  connections  on  Commodore  computers  are  called 
DIN  conneaors.  after  die  (>erman  organization  responsible  for 
dieir  design:  Deutsches  Institut  Ilier  Nomiung  is  German  for 
Germ;m  [ii.stimte  tor  St:indartLs.  It's  commonly  referred  to  by 
its  iniU;tls. 

If  you  buy  connectors  and  wire,  it's  not  difficult  to  make  up 
cables  or  extension  cords  for  the  various  DIN  conncctioas  in 
your  s\stem.  I've  made  .seri;il  bus  extenders  up  to  ten  feet  long, 
widwut  ill  efiects  from  die  extra  lengdi. 

I  c;mnib;ilize  die  wire  tor  tliese  from  Radk)  Shack's  #276- 
1978  Joystick  Extension  Cord,  wliich  includes  ten  feet  of  ver>' 
flexible  nine-conductor  cable.  Some  of  the  connectors  are  also 
available  from  I^idio  Shack,  but  others  need  to  be  bought  from 
an  audio  or  electronic  suiijily  .store. 

When  milking  u]i  DIN  cords,  you  must  be  iteiy  carefril  alx)Lit 
die  numbering  ol'  die  pin.s.  Pin  numbers  are  usually  molded 
into  die  connectors  diemsclves,  but  the  digits  are  very  small. 
The  numbering  system  is  often  not  wiiat  you'd  expect,  and 
even  published  tiiagnuiis  ha\e  been  known  to  contain  cmirs. 
Tlie  monil  of  ;ill  diis  Ls  to  he  \crj'  careful,  and  to  rely  on  die 
numbers  molded  into  die  connectors. 

Anodier  conllising  pt)int  is  diat  published  pinouts  some- 
times don't  s;iy  which  side  of  wliich  side  of  the  connector  die\' 
are  illustrating  Commcxiore  manuals  show  die  solder  termin;il 
end  of  the  male  connector,  but  others  may  \'ary.  Again,  be  verj' 
careful. 
Steiv  Macecio 
Marietta,  Ohio 


User  Port  Connectors;  Tlie  connectors  diat  mate  with  your 
computer's  user  port  are  called  printed  circuit  Ixiard  edge 
connectors.  Edge  connectors  are  made  in  such  a  huge  \ariety 
of  grades  and  configurations  that  finding  die  ri^it  one  c;m  be  a 
real  challenge.  Tiic  one  for  the  Commodore  user  port  is  not  a 
vePi-  common  configuration,  wliich  c;ui  m;ike  your  hunt  even 
more  difficult. 

You  ciui  make  a  serviceable  user  port  connector  b\'  taking  a 
hacksaw  to  a  I^dio Shack #276-1551.  Cut  ofla  13-pin  secdon 
from  one  end  of  diis  2  2 -pin  connector,  dien  use  pliers  to  puU 
out  the  13th  pin  (diat  pin's  former  space  now  becomes  die 
end  stop  for  die  cut-down  1 2-pin  connector).  Using  a  simihir 
technique  you  can  cut  six  pins  off"  die  odier  end,  niiiking  a  nice 
cassette  port  connector. 

If  you'd  radier  buy  an  exact-fit  connector  in  die  first  place, 
you'll  need  to  find  a  well-stocked  electronics  parts  store.  Ask 
diem  for  a  1 2-position  dual-sided  connector  widi  .  1 56  inch 
pin  .spacing.  suit:ible  for  a  1/16  inch  PC  l5o;«rtl.  If  diey  stock  diis 
size,  diey  ma\'  have  it  in  a  vitrietj'  of  tspes  ;uid  gradc-s.  Just  pick 
die  one  that  fits  your  taste  and  pocketbook. 
Andy  Carlson 
Youngstou^X  Ohio 

Connector  Polarization:  Vtlierever  a  PC;  lx);irtl  edge  con- 
nector is  u.scd,  die  possibUirv^  exists  to  insert  it  upside  dt)wn 
and  do  horrible  dam-^^e  to  your  sv'steni.  Lf  you  lotik  closely  at 
your  user  port  and  cassette  port,  you'll  see  diat  Comnnxlore 
has  cut  skits  in  die  PC  bo;ird  hetfteen  certain  pins.  Hiese  ;ire 
called  polarLzing  slots  ;uid  prevent  upside  tfown  insertion  of 
die  edge  connector.  To  use  diem,  get  poUuizing  pins  for  your 
connectors  and  insert  them  betvveen  die  pins  in  die  appropri- 
ate places. 

Tlie  polarizing  pins  arc  tiny  pieces  of  phtstic  or  fiberghts  tiiat 
fit  in  slots  between  die  electric;il  pins  on  die  connector  When 
the  polarizing  pins  match  die  pohuizing  slots,  die  connector 
can  be  in.serted  -widiout  difficultv'.  But  if  you  tr\-  to  insert  it  up- 
side down,  the  pins  and  the  slots  won't  match,  which  keeps 
you  fix)m  making  the  connection.  If  you  don"t  have  polarizing 
pins  for  j-our  connector,  you  can  often  m:ike  dieni  vourself 
from  diin  phtsdc. 
UicyS.  Tenier 
Alton,  Illinois 

Connector  Labels:  IJke  most  computers,  mine  sits  on  a  desk 
undemeadi  ;in  overhanging  shelf  attached  to  a  rat's  nest  of 
wires  :uid  edibles.  It's  bard  to  see  die  back  p:iiiel  at  :ill,  let  alone 
well  enougti  to  plug  in  anodier  wire.  So  when  I  neetl  to  work 
with  the  plugs,  it's  verv-  hard  to  locate  diem. 

I've  solved  die  problem  by  labeling  each  connector  on  the 
top  surface  of  my  computer  in  die  back  immetiiately  alxive  die 
connector  itself  Now  when  I  need  to  locate  die  seriiil  bus  or 
some  oUier  connector,  I  know  it's  riglii  below  its  label.  Once  I 
have  it  located  so  precisely,  it's  easy  to  replace  it  by  feel  alone. 
Jim  Baggs 
Casper,  Wyoming 

E?q>ansion  Port  Connectors:  Connectors  for  the  Commo- 
dore exp;uision  port  (die  one  used  for  cartridges)  ;irc  not  ver\' 
easy  to  find  in  stores.  Also,  when  you  find  diem,  diey  tentl  to 
be  expensive.  So,  whenever  I  need  such  a  connector,  I  c-;mni- 
balizc  it  from  a  deftmct  games  ciirtridge.  .Not  onl\-  are  die.se 
wideh'  avmlafile.  but  the  cartridge  c:Lse  makes  a  nice  chiLssis  for 
whatever  gadget  I  w;mt  to  connect  to  die  port. 

If  you  do  buy  your  own  connector,  be  ver\-  careftil  alxiut  pin 

Conlhiuett  oti  J}f>.  12 
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SPORTS 


From  the  incredible  realism  and 
playability  of  Football... 


H 


...to  the  sophisticated  statistical 
simulation  of  Baseball... 


See  Your  Dealer.  For  additional  product 
ordering  information  or  the  name  of  the 
dealer  nearest  you,  call  [800]  637-4983. 


> 

^^^^^^^^kii^ 

1^ 

^_^K^di^9^^| 

&^ 

'STODH*^ 

l^'  0    >s^'    ' 

w^^^m^-ww'-^ 


.SubLOGIC.  The  State  of  the 


Art  in  Sports  Simulations. 


UOGIC 


713  Edgebrook  Drive 
Champaign  IL61820 

(217)  353-84e2Teiei:  206995 

Order  Line;  (BOO)  637-4983 

(eiceplmlHinois  Atasha  an^jHawai.i 


Continued  from  pg.  10 

numbering.  Clomnnxlorc's  s\'stem  of  pin  numbers  is  different 
from  tliat  used  in  industn'  (pin  1  in  die  st;uid:ird  system  is  pin 
22  en  tlic  cxp:uTSion  port,  and  so  forth). 

Biff  Sander 
MdiietUi,  Ohin 

Look  Before  You  Type:  Commcxlorc's  screen  editor  makes  it 
ven'  easy  to  duplicate  lines  in  a  pmgnun  or  to  create  slij^itly 
modified  lines.  ,\11  you  have  to  do  is  list  the  line  in  question, 
change  tlic  line  nunibcr  and  ;tn)thing  else  diat"s  necessary-, 
then  press  RER  RN,  Bodi  the  new  line  and  the  old  one  are 
now  in  niemorv-  for  you  to  use. 

You  can  use  this  to  your  benefit  when  typing  in  progntnis 
from  this  magazine.  Many  times,  entire  sectioas  of  such  pro- 
grams are  virtually  identical  to  one  ;mother,  and  may  lend 
themseh'cs  to  duplication  or  semi-duplication  by  the  methtxJ 
deserilx'd  abo\'e.  Before  suirting  to  type  a  prognmi,  you  should 
m;ike  a  quick  se;irch  for  tlrese  sectitMis.  Doing  diis  will  s;i%e 
you  time  luid  will  pre\ent  some  finger  errors,  [kit  best  of  all.  it 
will  replace  some  of  typing's  tiring  dnidgery  widi  a  more  satis- 
fyingly  creative  method  of  data  entry. 
Walt  UiUKha 
Oak  Park,  Illinois 

Temporary  line  Deletion:  If  you  want  to  see  tlie  effect  of 
removing  a  certain  line  tom  your  program,  use  the  INST  key 


Bookkeeping  Mode  Eas-j  By.  .  . 

THE  ACCOUNTANT'' 

KFS^s  Preferred^  Accounting  System 
Written  Excluswely  for  Commodore  128^^^ 

ONE  PROGRAM  DOES  IT  ALLI 

(No  more  disk  swappinglH) 


FEATURES  INCWDEt 

•  General  Ledger 

•  General  journal 

•  Check  Register 

•  Over  20  Rcpf^rts  Aiicnmaricaliv 

•  Paymll  Gimputytion  &.  Write-up 

•  Pavn)il  Check  Writinj; 

•  W'2  Printinu 

•  Quarterly  Repurt 

•  AcccJtjnly  Receivable  "Rlint;  S^T^eni" 

•  CusTomcr  Biliiny^ 

•  Accounts  Pav^hle  "Fihng  System" 


BASIC  PACKAGE 
14.99s 

IRS  Acceptable 
Double  Entr>' 
Accounting  System 


Integrated  Packages  Now  Available! 

— Professional  Client  Billing 
— Restaurant  Accounting 
C  ^T  ^%  9S  — Construction  Accounting 

^VSF  each  —Retail  Sales  and  Inventory 

— Service  Invoicing 
*  "Commodore's  MiCTOCom^uiers  Magii;me,  Independem  Rsviewurs, 
Rated  THE  ACCOUNTANT"'  ^'il  in  Preference  — 
for  Commodore  IZSP''  PrtxliKtivity" 
KFS  SdftuTirc,  Inc.  Sample  Available 

1301  Seminoio  Blvd,  #117  S9.95  PREPAID 

Liigo,  Florida  33540  For  C.O.D.  Orders  Phone: 

(813)  584-2355 
(FL  Residents  add  5%  Sates  Tax) 
(All  figures  in  U,S.  Dollars) 


to  open  lip  direc  spaces  iifter  die  line  iiuml')cr,  then  type  RVM 
into  tlie  opened  space.  Vi'hen  yon  pre.s^  Rli TliR.X,  die  line  will 
be  chiin^ed  to  a  remiirk.  If  die  cli;mge  tloesn't  j>i\e  the  effect 
you  want,  you  c:ui  reinstate  die  line  by  using  die  DHL  key  to 
delete  the  REM,  tiien  pa*ssing  RiniTlN  agiiin.  If  die  change 
does  impro\e  your  program,  delete  the  line  by  typing  its  num- 
Ix-r  tlien  pressing  RHll'RiN. 
OMirlc'iieMoffill 
Philadelphia,  Pei  ii  is]  it  'ania 

Indented  Listings:  Some  versions  of  BASIC  allow  you  to  put 
spaces  lx:t\vcen  die  line  number  ;uid  die  re-st  of  the  line  to  in- 
dent die  line  when  its  listed.  'Iliis  ability  c;ui  make  your  listings 
ejLsier  to  underst;uid,  such  as  when  you  indent  ;ill  die  lines 
contained  in  a  I-OR-NHXT  l(K)p. 

If  yoLi  put  such  spaces  into  a  CA>mniodt)re  BASK^  line,  die 
computer  will  automatic;iIly  remove  them,  unless  you  know 
die  trick.  Tlie  trick  is  to  npc  die  line  number  dien  luiy  shifted 
letter  dien  die  number  of  spaces  you  want  to  .skip,  dien  die 
statements  you  wiuit  to  ha\e  in  your  progr:uii  line.  When  you 
list  the  line,  the  shifted  letter  will  have  dis:ippe:ired,  but  die 
subsequent  spaces  wiU  remain.  Execution  of  die  prognuii  \\'ill 
not  be  :ittected  in  ;uiy  way, 

\()ii  can  take  diis  one  step  ftirdier  to  produce  a  line  that  is 
blank  except  tor  its  number  Type  the  line  numlier  a  shifted 
letter,  a  single  space,  dien  anodier  shiftetl  letter 
Tom  Hulleran 
Columbus,  Ohio 

Magazine  Placekecper:  Wlieii  typing  in  programs  fnini  a 

niag;izine.  use  a  Reader  Re.spon.se  V:m\\  to  mark  the  line  diat 

you  are  typing.  l-A-en  belter  yet.  luse  one  ol  the  subscription 

c;irds  diat  fall  out  whenever  you  hold  the  mag;izine. 

Jeff  Job)  ison 

Allensville,  Penns)ilvcmia 

Magazine  Entry  Hints:  Most  programs  in  Commodore  Mag- 
azine include  :ui  a|'x>stn)plie  ;uid  four  letters  at  die  end  of  ev- 
ery line.  You  should  not  type  diose  characters  unless  you're 
using  the  Magjizine  Entry  Prognims  de.scrilied  in  die  back  of 
every  is-sue.  llie  Magiizine  I'ntry  Prognims  aa*  u.sed  to  iasure 
accurate  taping,  ;uid  diey  treat  Uie  the  extra  chiiracters  as  a 
checksum.  Tlie  Magiizine  Entry  Programs  delete  die  extra 
dianicters  from  die  lines  you  type,  so  diey  don't  end  u|i  in 
your  program.  If  you  don't  use  the  iMagazinc  Entry  Pn)gnim, 
iiut  do  tTipe  die  extra  ch;iracters,  diey  itre  made  a  part  of  die 
pn)gram  you're  typing,  where  diey  do  nothing  but  cause  Syn- 
ta.x  Errors. 

When  typing  in  prognims  my.seff.  I  use  die  Magazine  Entry 
Prognun-1 28  lor  lx)di  die  1 28  ;>nd  64  programs.  I  redefine  the 
V7  key  to  print  ;ui  apostrophe,  which  relieves  me  from  making 
die  awkward  SHUT ""  keystnike,  .Also,  since  most  of  die  ciieck- 
sums  for  V>KY\  statements  sum  widi  die  lener  B.  1  redefine  the 
F5  key  as  apostrophe-B,  which  tiirdier  eliminates  keystrokes. 
John  B.  Boniger 
Rock  Island  Illinois 

Mi^azine  Entry  Improvements:  I've  modified  my  Magazine 

Entry  Pnigninis  to  eliminate  die  neetl  for  rememliering  die 

NEW  and  SYS  conim;uids.  For  die  C64  version,  just  rcmo\e  the 

END  statement  from  line  1 20,  dien  add  these  new  linc^. 

130  PRINT  ■'|CU-AR,IX>WN4 1  NEW" 

140  PRINT  '[DOWNZ]  S\S49152' 

150  mKl-:  631,13  :  Pt:>KI-  632,13  :  POKE  634,13  :  POKE 

198.3  ;  END 

Continiwil  on  pg.  14 


THE  LEADING 
WORD  PROCESSOR 
JUST  GOT  BEHER! 

No  Brag.  Just  Fact.  WORD  WRITER  3 
has  more  features,  more  power,  and 

is  easier-to-use  than  any 

other  C64  word  processor. 


And  now  the  facts!  We've  added: 

•  An  85,000-Word  Spell  Checker  -  plus,  unlimited 
sub-dictionaries. 

•  An  Integrated  Thesaurus  with  over  60,000 

synonyms  and  alternatives. 

•  An  Integrated  Outline  Processor  that  quickly 
organizes  notes,  facts,  and  ideas  into  a  convenient 
outline  format. 

•  An  80-Column  Print  Preview  Mode 

•  Highlighting:  Prints  out  your  text  incorporating 
underlining,  boldface,  /fa//cs,  superscript,  subscript, 
and  more. 

•  Headers  and  Footers 

•  Automatic  Program  Set-Up:  Configures  WORD 
WRITER  3  to  your  choice  of  printer  codes,  screen 

colors,  and  more. 

•  SwiftKeys'  access  commands  quickly,  using  a 
minimum  of  keystrokes. 

•  . .  .  and  much,  much  more! 

You  Get  Free,  Ongoing  Technical  Support 

Rest  assured.  When  you  show  your  support  by 
buying  Timeworks  software,  we  never  stop  show- 
ing ours.  That's  why  our  twelve  Customer  Support 
Technicians  have  been  giving  ourT.L.C.  (Technical 
Loving  Care)  for  over  four  years.  And,  all  our 
programs  have  a  Money  Back  Guarantee" 


iifii:qii>r;y»i 

More  power  for  your  dollar 

Timeworks,  Inc.  444  Lake  Cook  Road 
Deerfield,  Illinois  60015  312-948-9200 


"  Delaifs  on  every  Timaworks  pachage. 
'  Registered  trademarks  of  Comrr-odore  Bectronira.  Ltd., 
Timeworks,  Inc..  Berkeley  Sottworks,  Inc. 
%   19B3  Timeworks,  Inc.  AFI  Rights  Reserved. 


Word  Writer  3 
interfaces  with 
Timeworks' 
other  064 
programs  for 
a  complete 
Productivity 
System: 


•  DATA  NIAHAGER  2  Report  Wrtter 

A  highly  flexible  filing  and  recordkeeping  system 
that  stores,  retrieves,  sorts,  evaluates,  and  updates 
large  amounts  of  information.  Includes:  Report 
Writing.  Graphics,  Statistics,  and  Label  Making 
capabilities. 

•  SWIFTCALC  Sideways 

A  powerful,  surprisingly  easy-to-use  electronic 
spreadsheet  for  home  and  business  use.  Pius, 
with  Sideways,  prints  all  your  columns  on  one, 
continuous  sheet  -  sideways! 

•  PARTNER  64 

A  cartridge-based  product  with  eight  instantly 
accessible  desktop  accessories,  PARTNER  oper- 
ates "concurrently"  with  your  other  C64  software 
programs. 

Available  for  Commodore  64/128'  Computers 
(64K,  40  Column) 

Suggested  Retail  List  Prices: 

WORD  WRITER  3 $49.95 

DATA  rvlANAGER  2 S39.95 

SWIFTCALC $39.95 

PARTNER  64 $59.95 

Now  at  your  favorite  dealer, 
or  contact  Timeworks  today. 

To  Order  Call 
1-800-535-9497 


^foV 
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Continued  f mm  l)g.  12 

VoT  tlie  CI 28  Mag^izine  Entn'  Pn)gram,  remove  tlie  EiND 
statement  from  line  120,  tlicn  add  tlie  tbllowing  lines. 
130  PRINT  "[C;Lli/VR,DOWN4|  NEW" 
140  PRINT  "[DOWN2]  S\'S4864" 

150  POKE  842.13  :  POKE  843,13  :  POKE  844,13  :  POKE 
208,3  :  END 

The  new  lines  use  the  dynamic  Icejtxjard  teclmique  to  ex- 
ecute tlic  NEW  ;uid  tile  proper  SYS  call. 
Dale  £  Roennehiitg 
Brodfjead,  Wisconsin 

Hang-up  Recovery:  Recently  1  had  a  program  that  wouldn't 
run  on  my  (Xi4.  When  I  tried  it  on  a  friend's  computer  and  it 
worked  perfectly,  I  tliouglit  I'd  have  to  send  my  owii  madiine 
to  tlie  rqiiiir  shop,  On  investigating  flirtlier,  I  found  that  my 
voice  synthesizer,  connected  but  not  enabled,  was  causing  the 
program  to  hang  up.  As  soon  as  I  unplugged  it,  the  program 
worked  oka)'. 

Wlien  1  told  the  stor}'  to  my  computer  friends,  many  of 
them  had  had  similar  situations  invohing  printers,  interfiices 
and  the  like.  So  my  advice  is  this — wiien  you  can't  get  a  pro- 
gram to  v\'ork  or  when  certain  peripherals  seem  to  hang  up,  try 
removing  all  unnecessarj'  peripherals  from  your  sj'stem, 
Steiv  Wmrl 
Tacoma.  Wcishington 

Hidden  GEOS  Characters:  Not  mentioned  in  the  GEOS 
manual  is  the  existence  of  several  cliaractcrs  not  normally 
a\'ailable  from  the  C64  keyboard.  These  characters  are  part  of 
tlie  standiird  ASCII  ch;iractcr  set,  but  not  pan  of  die  Commo- 
dore set.  You'll  get  tlieni  b>'  pressing  tJie  indicated  keys  witli 
the  ComnKxlore  ke)'  held  down. 
Left  curly  bracket       Commodore  and  colon 
Riglit  curly  bracket     (Commodore  and  semicolon 
Underline  Cxjmmodore  and  cUish 

Backshish  Commodore  ;uid  slash 

Vertical  line  Commodore  and  up  arrow 

TUde  Commodore  and  asterisk 

Left  apostrophe  Commodore  and  commercial  at 

Francis  Voipe 
Pittsbta^h,  R^nns-yli  ania 

Super  Huey  Hint:  I  love  this  program,  but  it's  been  frustrating 
to  wait  so  long  for  the  engine  to  warm  up.  One  day  I  discov- 
ered tliat  if  I  brouglit  die  RPM's  down  to  1 20,  tlie  initial  warm- 
up  time  wiLS  reduced  by  over  one-half, 
Michael  Schroecler 
Hudson,  New  York 

C64  Mirror:  Tliis  program  i^ill  definitely  get  the  attention  of 
the  next  person  to  use  your  C64.  Just  before  you  turn  your 
computer  o\'er  to  the  next  person  in  line,  load  and  run  this 
program. 
Frank  Colaricci 
Winter  Park,  Florida 


20  A=828:REM  RELOCATABLE 

25  FOR  I=A  TO  A-^87:READ  B:POKE  I,B 

30  C=CH-B:NEXT 

35  IF  C011844  THEN  PRINT"ERROR"  :  END 

40  SYS  A 

45  DATA  173,014,220,041,254,141,014, 

220 
50  DATA  165,001,041,251,133,001,169, 

000 
55  DATA  133,251,133,253,169,208,133, 

252 
60  DATA  169,048,133,254,162,008,134, 

250 
65  DATA  160,000,177,251,162,008,106, 

038 
70  DATA  002,202,208,250,165,002,145, 

253 
75  DATA  200,208,239,230,252,230,254, 

198 
80  DATA  250,208,231,165,001,009,004, 

133 
85  DATA  001,173,014,220,009,001,141, 

014 
90  DATA  220,173,024,208,041,240,009, 

012 
95  DATA  141,024,208,169,048,133,056, 

096  CiMii) 

C128  High-Resolution  Helper:  Using  the  C128's  graphic 
m<xles  is  great,  but  it  c;ui  be  a  p;un  to  figure  out  the  numlx^rs  cor- 
responding to  various  screen  locatioas.  This  litde  program  makes 
that  work  a  lot  easier,  by  letting  you  move  a  tiny  pixel  cursor 
around  tiie  .screen  while  it  reports  its  own  location. 

Just  load  and  run  the  program,  dien  u.se  the  numeric  keypad  to 
move  tlic  litde  cursor.  Tlie  8-ke)'  moves  it  up,  tlie  2-ke\'  moves  it 
down,  and  so  on.  To  lea\'e  a  dot  in  the  cursor's  current  position, 
press  the  5-key.  Press  STOP  to  exit  the  program. 

If  you  delete  Hne  5010,  you  can  u.se  the  program  in  conjunc- 
tion widi  otlicr  graphics  programs  you  :ire  developing.  Just  insert 
Hi-Rc-s  Helper,  less  line  5010,  after  tlie  otlicr  program's  DRAW 
statements.  You'll  have  die  litde  cursor  plus  whatever  your  pro- 
gram  has  drawn. 
Jerr\'  W.Jatvis 
Spokane,  Washington 


C64  Mirror 

10 

REM 

C64  MIRROR 

-  FRANK 

COLARICCI 

15 

PRINT  CHR§ (142) 

;CHR$(8) 

Hi-Res  Helper 

5000 

REM  HI-RES  HELPER  -  JERRY  JARVIS 

5010 

GRAPHIC  1,1:TRAP  5180 

5020 

X=160:Y=100:GOTO  5160 

5030 

DRAW  1,X,Y 

5040 

GET  KEY  J$:J=VAL(J$) 

5050 

IF 

J=5  THEN  F=l 

5060 

IF 

F=0  THEN  DRAW  0,X,Y 

5070 

IF 

J=l  THEN  Y=Y+1:X=X-1 

5080 

IF 

J=2  THEN  Y=Y-H 

5090 

IF 

J  =  3  THEN  Y  =  Y-H:X  =  X  +  1 

5100 

IF 

J=4  THEN  X=X-1 

5110 

IF 

J=6  THEN  X=X-H 

5120 

IF 

3=1    THEN  Y=Y-1:X=X-1 

5130 

IF 

J=8  THEN  Y=Y-1 

5140 

IF 

J=9  THEN  Y=Y-1:X=X+1 

5150 

IF 

J<>5  THEN  F=0 

5160 

CHAR  l,l,l,"X="-l-STR$(X)-^" 

Continued  on  pg.  58 


Is  Getting  The  Answer  To 

Software  Problems 

A  Bigger  Problem  Than 

The  Problem? 


Don't  stay  on  hold 
when  there's  help  online 
from  CompuServe' 

Software  Forums. 


The  new  upgraded 
version  of 
your  software 
locks  up. 
And  every 
time  you 
reboot, 
you  get  stuck  in  the 
same  place  in  the  program. 

You've  chucked  the  manual, 
because  you've  done  exactly  what  it 
tells  you  to  do  six  times  already 
So  you  call  the  software  company 

Now  you  spend  half  a  day  beating 
your  head  against  a  brick  wall  of 
busy  signals,  ranting  at  recorded 
messages,  hanging  around  on  hold. 
And  you  still  don't  get  the  solution 
to  your  problem. 

Meanwhile,  progress  is  stopped 
and  your  profits  are 
dribbling  away  But 
wait.  There's  help... 

Several  prom- 
inent, progressive 
software  publishers        _„ 
recognize  this  }'' 

problem,  and  f     & 

working  with  CompuServe, 
have  developed  a  solution — 
CompuServe  Software  Forums. 

Now  you  can  go  online  with 
experts  from  the  companies  that 
produced  your  software  and  get 


prompt,  vmtten  answers  to  your 
specific  problems.  ^^  You  can 
even  talk  with    ^^^^  the  actual 
software         »  ,^^ 
developers.      '' 


Mdus',  Ashton-Tate',  Autodesk^ 
Borland  International'  Creative 
Solutions'  Digital  Research;'  Living 
Yideotext'  Lotus*  Inc.,  Microsoft' 
MicroPro"'  Misosys  Inc'  and  Software 
Publishing'  all  have  CompuServe 
Software  Forums. 
And  we  keep  '' 

adding 
more. 


CompuServe's  large  subscriber 
base  also  puts  you  in  touch  with 
thousands  of  other,  often  more  expe- 
rienced, users  of  the  same  software. 
You'll  find  they  can  give  you  lots 
of  creative  ways  to  get  the  most  out 
of  your  software. 

And  software  forums  are  the  best 
way  to  learn  about  product  updates, 
new  product  announcements,  new 
ways  to  expand  the  uses  of  your  soft- 
ware, and  offer  free  uploads  of  your 
own  programs. 

Our  online  electronic  magazines 


frequently  publish  software  reviews. 
And  you  can  find  help  for  many 
other  software  products  in  our  other 
computer-related  forums  for  IBMt 
Tandyt  Atari' Applet  Commodoret 
TI"  and  others. 

The  last  thing  you 
need  when  you've  got 

a  software  problem 

,  is  a  bigger 

„  problem 
getting  answers. 
So,  from  now 
on,  get  ,^      _ 
prompt,  "^Sssc:::, 
informed 
answers  on 
CompuServe  Software  Forums. 

To  buy  your  CompuServe 
Subscription  Kit,  see  your  nearest 
computer  dealer.  Su^ested  retail 
price  is  $39.95. 

To  order  direct 
or  for  more 
information, 
call  800-848-8199 
(in  Ohio,  614- 
457-0802). 

If  you're 
already  a 
CompuServe 
subscriber,  ■ 

just  type  _, 

GO  SOFTWARE  J 
at  any !  prompt. 


CompuServe 

Inforaiation  Services.  PO.  Box  £0212 

5000  Aillnglon  Cenira  Blvi  Columbus.  OH  43220 


An  H&R  Block  Company 
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In  a  market  full  of  helicopter  simulations  like  Super  Huey  II,  Gunship,  and  Infiltrator,  It's  nice 
to  find  a  product  like  ThunderChopper  that  flies  high  above  the  rest! 


Colonel  Jack  Rosenow  USAF  (Ret.), 
President  of  ActionSofl  Corp.,  has  the 
experience  to  provide  all  of  the 
fielicopter  action  and  strategy  you've 
been  looking  for!  ThunderChopper  in- 
corporates the  most  advanced 
graphics,  flight  systems,  and  game- 
playing  factors  to  provide  a  sensational 
balance  of  strategy  and  fun: 


Action-packed  animated  graphics 
include  real  3D  scenery  and  airborne 

threats.  The  competition's  graphics 
just  don't  compare. 

A  sophisticated  instrument  panel  lets 
you  scan  all  vital  information  at  a 
glance  v^rhether  performing  combat, 
exploration  or  rescue  operations. 
ThunderChopper's  advanced 
instrumentation  includes  Fonward- 
Looking  Infra  red,  C02  laser  radar, 
zoom  television,  and  ECM. 
Armament  includes  TOW  and 
Stinger  missiles,  a  Hughes  Chain 
Gun,  and  Zuni  rockets. 

Belter  program  and  documentation 
design  gets  you  up  flying  exciting 
combat  missions  in  minutes. 


As  Colonel  Jack  says: 
"ThunderChopper  is  the  ultimate  in 
helicopter  action  and  realism.  Nothing 
else  even  comes  close.  No  other 
simulation  can  boast  this  much  funl" 


nderChopp 


Simulation  animation  and  3D 
graphic  technologies  licensed  f 


m 
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Up  Periscope! 

The  new  state  of  the  art  in  submarine 
simulation.  The  superior  strategic  play 
action  and  3D  animated  graphics  of  this 
simulation  put  it  generations  ahead  of 

the  pack. 

See  Your  Dealer... 

Or  write  or  call  us  for  more  information. 
ThunderChopper  and  Up  Periscope! 
are  available  on  disk  for  the  Commo- 
dore 64  128,  Apple  II,  and  IBM  PC  line 
of  personal  computers  for  the 
suggested  retail  price  of  $29.95.  For    .: 
direct  orders  please  specify  which 
computer  version  you  want.  Include 
$2.00  for  shipping  and  specify  UPS  or 
first  class  mail  delivery.  Visa,  Master- 
Card, American  Express,  and  Diners 
Club  cards  accepted. 


-  S29.95  - 
Better  Engineering  at  a  Better 
Price 


'  1986  ActionSoft  Corporation 

3D  Graphics  and  special  effects  courtesy 

SubLOGlC  Corp. 

Commodore  64  and  Commodore  T28  are 

trademarks  of  Commodore  Electronics  Ltd. 

Apple  Jl  is  a  trademarl<  of  Apple  Computer,  Inc. 

IBM  is  a  registered  trademark  of  International 

Business  Mactiines  Corp. 


-GENERATIONS  AHEAD  !N  STRATEGV  ACTION  SOFTWARE 

122-4   S.RACE   ST   URBANA  .  IL   61801 
(217) 367-1024 
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SILICON 


VALLEY 


INSIDER 


BY  MATTHEW  LEEDS 


From 
Hardhat 
to  the  Video 
Title  Sliop 

Previews  of  new  products 
from  the  Valley. 

13rown-Wagh  PubUshlnl  ha^  released  an 
upgraded  version  of  Analyze,  their 
spreadsheet  for  the  Amiga.  The  new  version 
now  has  macro  support,  letting  you  "build 
your  own  templates  and  keystroke 
shorthands.  It  also  offers  sorting  of  all  data 
types,  file  loons  for  Workbench  support,  and 
graphics. 

The  new  graphics  functions  include  bar, 
pie  and  area  graphs  in  2D  aad  3D.  AH  graphs 
can  be  saved  in  IFF  format  and  can  be 
enhanced  with  text.  A  mode  that  changes  the 
graphs  as  you  change  the  data  is  also 
available.  You  can  have  up  to  four  graphs  on 
the  screen  at  one  time. 

As  I  mentioned  in  an  earher  column,  Asgis 
Development  has  arranged  to  publish 
Hnslcraft  under  the  name  of  Sooics.  This 
upgraded  version  has  features  like  fuD  MIDI 
support,  control  of  up  to  ei^t  internal  voices, 
Kiokstart  \2  compatibility,  and  an  expanded 
libraiy  of  instruments  and  scores.  The  entire 
program  runs  smoother  and  cleaner,  and 
uses  standajni  Aegis  file  requesters. 

Last  September  I  met  Vladimir  Schneider, 
President  of  Zirkonics  Corporaticai,  a 
software  development  house  in  Montreal  He 
was  demonstrating  a  new  text  editor  for  the 
Amiga  called  iTB.  Text  editors  are  not  word 
processors— they  enter  and  edit  text,  but 
don't  ouQJUt  to  a  printer.  If  you  write  only 
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short  letters,  a  word  processor  is  useful,  hut  if 
you  write  long  documents  or  program  code,  a 
text  editor  is  the  tool  of  choice. 

BTE  lets  you  create  your  own  editing 
environment  You  decide  what  macros  you 
want  and  what  key  combinations  will  call 
them  up.  You  can  have  as  many  files  in 
memory  as  you  have  space  for,  and  can  copy 
and  move  text  between  them.  A  powerful 
program. 

Sedona  Software  has  produced  a 
personal  finance  manager  package  for  the 
Amiga  called  Money  Mentor,  Written 
completely  in  AmigaBASIC,  it  can  handle  up 
to  30  separate  accounts  and  200  budget 
categories  in  any  12-month  period- 
Transactions  within  accounts  or  split 
payments  are  supported,  as  is  check  printing 
and  several  search  options.  There  are  also 
quite  a  few  report  options  including  color 
graphs  or  printed  reports. 

I  have  mixed  feelings  about  this  program. 
It  has  most,  if  not  all,  of  the  functions  you 
need  in  a  personal  finance  package,  and  it  is 
easy  to  use.  However,  it  does  not  foUow  the 
Amiga  standard  in  several  areas  of  operation, 
and  is  veiy  slow  updating  the  screen.  It 
would  benefit  from  being  run  through  a 
BASIC  compiler  once  one  is  available  for 
AmigaBASIC. 

Electronic  Arts  has  picked  up 


distribution  of  the  Qygnus  line  of  software. 
One  of  the  new  releases  is  Qui2ani  for  the  64. 
This  is  the  most  comprehensive  computer 
trivia  game  IVe  seen.  It  not  only  allows  up  to 
eight  players  to  participate,  but  offers  you  the 
option  to  create  your  own  questions  and 
answers.  The  entire  program  is  based  on  the 
premise  that  you  and  your  fellow  players  are 
part  of  a  repair  crew  working  on  satellites 
that  are  failing.  Instead  of  requesting  the 
normal  entry  codes,  they  have  begun  to 
require  odd,  random,  trivial  information.  It's 
a  cute  premise. 

Also  from  Electronic  Arts  is  the  64 
version  of  Moebius.  I  don't  get  much  time 
to  play  adventure  games,  but  I  was  veiy 
taken  by  the  fluid  animation  of  the  combat 
scenes  in  this  oriental  fantasy  role- 
playing  game.  I  was  also  intrigued  by  the 
black  headband  Included  in  the  gamebox. 
Once  I  put  it  on,  I  began  to  feel  different, 
more  cat-  like  in  my  movements.  It  may 
take  me  a  while  to  become  a  true  dicipline 
of  Moebius  the  Windwalker,  but  I'm 
working  on  it, 

Hloslon  Software  has  just  released 
their  first  set  of  fonts  for  the  Amiga, 
niiision  Fonts  #1 .  This  is  the  beginning 
of  a  library  of  fonts,  with  ten  complete 
fonts  In  a  variety  of  sizes  from  8  to  21 
points.  The  fonts  can  be  used  in  any  of  the 
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From  the  sophisticated  realism,  detail,  and  intellectual 
stimulation  of  Flight  Simulator... 


.to  the  brute-force  fun,  thrills  and  excitement  of  Jet. 
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.with  new  adventures  in  Scenery  Disks. 
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.SubLOGIC.  The  State  of  the  Art  m  Flight. 


T'y^ 


:.^^-;?-* 


_■•-•.«»¥ 


SVJifl'-v 


^J?fi 


See  Your  Dealer.  For  additional  product  ordering  information 
or  the  name  of  the  dealer  nearest  you,  call  (800)  637-  4983. 

3M[o)LOGIC 

Corporation 

:  713  Edgebrook  Drive 

Champaign  IL6ia20 

(217)359-6482Telei(:206995 

ORDER  LINE:  (800)  637-4963 

(excepl  in  Winois,  Alaska  and  Hawaii] 
Open  7  AM  10  9  PM  Central  Time 


IF  YOU  STILL  THINK  01 

PLAY AROUND 


GEOS  $59?^ 


The  Graphic  Eiwironment  Operating 
System  that  opens  up  a  whole  universe  of 
new  possibihties  for  Commodores.  With 
geoWrite.  geoPaint,  fast-loading 
HiskTurbo  and  support  for  ail  GEOS- 
compatible  applications. 


F0NTPACK1   ^29P 

A  collection  of  20  more  fonts  for  use  with 
GEOS  applications,  in  various  shapes  and 
sizes  for  more  expressive  and  creative 
documents. 
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GEOCALC  $49?' 

'Ilie  CiEOS-compatible,  number- 
crunching  spreadsheet  for  tracking  and 
analyzing  numerical  data.  Create  your 
own  formulas,  perform  calculations  for 
anything  from  simple  jjeonielry  to  "what 
if"  cost  projections. 


DESKPACK 1  $34« 

Four  GEOS-compatible  applications: 
Graphics  Grabber  for  importing  art  from 
Print  Shop,'^  Newsroom'"  and  Print 
Master'"  graphics;  Calendar;  Icon  Editor 
and  Blackjack  Dealer. 
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GEOFILE  $49?' 


The  GlilOS-comixitible  database  manager 
that  sorts,  edits  and  prioritizes  wliatever 
data  you  feed  it.  You  fill  out  the  "input 
form!'  specify  your  command,  and  geoFile 
takes  it  from  there. 


WITH  THESE. 
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GEODEX  $39?' 


The  GEOS-compjilibiL'  directory  that 
allows  you  to  create  lists  by  name, address, 
phone  number,  etc.  Includes  geoMers^e  to 
customize  form  letters  and  invitations. 


WRITER'S 
WORKSHOP  $49?' 

All  tlie  CJivOS-cunipatiblc  tools  a  writer 
needs,  including  geoWrite  2.0  with 
headers,  footers  and  features  to  justify, 
center,  search  and  replace  text.  Includes 
a  Text  Grabber  (for  converting  text  from 
programs  like  Paper  Clip"'),  geoMerge 
and  LaserWriter  printing  capability. 


GEOPRINT  CABLE  $39?' 

The  six-foot  cable  that  speeds  up 
printing  because  its  parallel — not  serial. 
Connects  easily  to  Commodores  with 
fewer  wires  and  no  irsterface  box. 


To  order  call  l-800-443-0100exL234 
(California  residents  add  T)i-  sales  lax. ) 
S2.50  US/$,5.,50  Foreign  for  shippiii)"  ;ind 
handliiiK-  Allow  six  weeks  for  delivery. 

Cumni'^lim:  iiiKl  timuinKlim*  CM  art"  tpdentar^sn '( CiiiuriiiMji>rL- 
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Sooner  or  later,  you're  going  to  discover  that  there's  more  to 
Commodores  than  fun  and  games. 

You're  going  to  discover  power. 

Not  the  kind  of  power  that  blasts  aliens  out  of  the  galaxy.  But 
the  kind  that  whips  through  boatloads  of  data  in  seconds.  The 
kind  that  crunches  numbers  and  drafts  documents  like  child's  play. 

The  kind  you  find  in  GEOS. 

Every  GEOS  application  can  take  your  Commodore  from 
"mastering  the  universe"  to  a  university  master's  degree,  with 
all  kinds  of  advanced  capabilities  that  function  at  hyper-speeds 
you  never  imagined  possible. 

So  if  you're  tired  of  toying  with  technology,  try  playing  around 
with  GEOS.  Once  you  fee!  its  power,  you'll  know  that  for  anyone 
who  still  thinks  Commodores  are  toys,  the  game's  over. 
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Berkeley 
Softworks 

The  brightest  minds  are  working  at  Berkeley. 


TELECOMMUNICATIONS 


BY  ROHIiRl  W.  IJAKIiR 


Inside 
QuantumLink 

Explore  Ihe  inner  ivorkings 
of  the  QuantumLink 
telecomnittniciUion  service 
with  network  pin  Bob  Baker. 

in  my  first  column,  I  mentioned  some 
t)f  the  utilities  commonly  used  to  make 
tlie  uploading  :ind  dov\Tiloading  of  files 
somewhat  easier.  The  more  popular  of 
these  utilities  arc  ARC,  LVT^X  and  LI- 
BRARY, which  are  ii.scd  to  compress  or 
combine  files.  Since  that  time,  it  has 
come  to  my  attention  tliat  several  of  tlie 
early  versions  of  tlie  L\?>Df  utilit)'  had  a 
built-in  protection  scheme  that  could 
cause  problems  if  the  program  was 
mtxlified. 

Supposedly,  the  I.YNX  utility  did  a 
diecksum  to  verilS'  Uiat  certain  portions 
of  tlie  program  were  not  modified.  If  the 
computed  checksum  did  not  match  the 
expected  value,  tlie  utility  could  wind  up 
destnjying  files  on  )'our  disk.  Tlie  later 
versions  of  tlie  LYNX  iitilit)'  (\ersion  9  or 
later)  have  had  tliis  quirk  removed,  and 
all  earlier  versions  of  L'^TSiX  were  to  be 
deleted  fliom  the  QuantumLink  down- 
load libraries. 

If  you  haven't  done  so  already,  I  would 
strongly  recommend  downloading  a 
copy  of  the  latest  version  of  the  L^TMX 
utility.  While  you're  at  it,  you  might  also 
want  to  check  if  \'ou  have  the  latest  \'er- 
sion  of  ARC  and  other  utilities  that  you 
miglit  be  using  Tliere  are  new  versions 
being  uploaded  quite  fiiequently,  so  }'ou 
might  want  to  dieck  them  from  time  to 
time. 

If  )'ou  find  the  utilities  helpful,  remem- 
Ix'r  that  most  are  fixfe-ware  programs  and 
tlie  autJiors  depend  on  donations  to  fiind 
work  on  improvements  and  future  devel- 
opment i'Mso,  rememlx;r  that  some  au- 
Uiors  of  freeware  utilities  might  provide 
added  documentation,  companion  pro- 
grams, or  update  nnxlific-ations  to  regis- 
tered o^Tiers.  So  you  might  find  it  wortli- 
whilc  to  support  a  particular  utility'  you 
find  esf)ecially  useful. 

Hot  Off  the  Wire 

llie  CitiLink  section  of  News  &  Infor- 
mation is  now  off  to  a  running  start. 


However,  QuantumlJnk  is  looking  for 
more  input  lh)!ii  everyone.  'Hie  \;irious 
"city  editors"  ha%'c  been  doing  a  fine  job, 
but  more  input  Ls  needed  Irom  otlier  us- 
ers in  each  area.  If  you  have  sometliing  to 
share,  f)e  sure  to  drop  by  and  let  otliers 
know  what's  going  on. 

MatchMaking  seems  to  be  getting 
prett)'  successfiji  in  finding  friends  as 
well  as  lovers.  There  are  e%'cn  Qwcd- 
dings  tliese  days,  which  are  mtxk  w  ed- 
dings  tliat  are  held  on-line  on  Quiuitum- 
Litik.  However,  some  Qwetldings  are 
very  serious  and  tlie  Qcouple  w:uit  to  be 
known  on-line  as  Qhusband  and  Qwife. 
Others  are  simply  fiiends  who  just  enjoy 
sharing  time  together  on-line. 

Steever  ;ind  U:)riannel  went  even  fur- 
ther. Thc)'  met  on-line  on  Q-link  in  Ed's 
Pub  back  on  k>bor  Day  last  >e;tr.  If  you 
haven't  drop|jed  by,  Ed's  Pub  Ls  a  popular 
public  rtxim  in  Q-link's  People  Connec- 
tion. Anj-way,  since  tlie\'  met.  Stee\cr  and 
LorianncI  have  .spent  a  lot  of  time  togeth- 
er on-line.  Even  though  Steever  lives  in 
Texas  and  Loriannel  lives  in  Alabama, 
the"}'  fell  in  lo\e. 

After  talking  a  lot  on  Q-link,  Steever 
and  Lori;mnel  decided  to  go  a  little  fi.ir- 
thcr  and  finally  talked  over  the  tele- 
phone. From  Uicrc  the\'  have  come  a 
long  way,  meeting  in  jjerson,  and  finally 
getting  engaged, 

On  December  31st  the-)'  were  Qmar- 
ried  in  tlie  Auditorium  on  Q-link.  with 
Satin  S8  (a  veteran  of  o\er  -ii)  \\eddings 
on  Q-link  in  the  past  year )  pcrtbrming  the 
ceremonies.  Then,  later  that  s;uiie  night, 
Steever  and  Ix)rianncl  were  to  get  mar- 
ried in  a  re:il  ceremony  to  be  held  in  Bir- 
mingliam,  Alabiuna.  Good  luck  .Steever 
and  Loriannel,  and  I  hope  you  continue 


to  enjoy  Q-link  :md  die  other  people 
you've  met  on-line. 

If  }'ou're  interested  in  checking  out  the 
.Match.Vlaker  section  or  finding  out  more 
about  what's  going  on  in  People  C^onncc- 
tion,  you'll  find  tliat  :ind  more  in  tlie  P.C:. 
Society  .section  of  tlie  just  I'or  Pun  :irea  of 
Q-link,  There  you'll  find  'llie  Ear,  Rtxmi 
Notices  and  Special  Events  sections, 
where  you  can  find  out  the  latest  gossip 
and  wliat's  going  on  in  People  Connec- 
tion. '^''ou'U  also  find  more  intbniiation  on 
the  Qshordi:ind  graphics  ;md  abbrevia- 
tions I  mentioned  in  my  Februarj'  col- 
umn. 

While  you're  there,  be  sure  to  also 
check  out  the  Photogallen-.  TliLs  is  where 
you  can  download  graphic  pictures  of 
other  users  and  find  out  how  to  submit  a 
photo  of  yourself,  so  your  on-line  fliencLs 
can  see  what  you  look  Ukc.  All  the  infor- 
mation on  how  to  submit  photos  and 
how  to  \iew  a  photo  after  you've  down- 
loaded tlie  data  file  is  all  provided  in  this 
area  as  well. 

Acmally,  the  Just  For  Fun  section  of 
Q-link  is  probably  one  of  the  largest  sec- 
tions of  tlie  system  tlie.se  daj-s.  Besidc-s 
P.C.  Society,  \'ou'll  al.so  find  the  Clubs  & 
Special  Interest,  Sports  Cx'Uter,  Fun  & 
Games,  Treasure  and  Rocklink  sections. 

In  the  Clubs  &  Sp>ecial  Interests  sec- 
tion you'll  find  the  reno\'ated  Crossroads 
Cafe,  where  you  can  stop  by  for  a  lively 
debate  or  interesting  conversation.  Ttie 
Club  House,  Game  Room,  Support  Cen- 
ter, and  Work  Forces  sections  each  con- 
tain various  areas  within  them  that  cover 
a  wide  range  of  interests.  There  you  can 
share  information  with  otliers  about  your 
particular  hobby,  occupation  or  special 
Continued  onpg.  98 
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AREYOU 


FORFRDIDS? 


If  you're  finding  it  increasingly 
difficult  to  find  anything  at  all, 
maybe  it's  time  you  found  out 
about  geoDex.  The  GEOS-com- 
patible  directory  that  generates 
mailing  lists.  Prints  address 
labels.  And  sorts  out  all  sorts  of 
things  for  your  Commodore. 

"fry  directory  assistance 
With  a  little  help  from  geoDex, 
you  can  call  up  a  directory 
organized  from  any  three  catego- 
ries you  choose.  Which  means 
you  can  list  your  friends  by  name, 
telephone  number  or 
almost  anything  else 
that  can  be  assigned 
its  own  three- 
character  code. 

Like  "MEN"  for 
guys  you  know.  Or 
"GRL"  for  girls  you 
know.  Or  "FOX"  for  girls  or  guys 
you'd  like  to  know. 

But  no  matter  how  you  choose 
to  categorize  them,  if  you  can 


point  and  click  a 
mouse,  you  can  call 
up  any  list  of  friends 
with  geoDex's  easy- 
to-read  graphics. 

Our  most  in- 
viting feature.  Of 
course,  once  you've 
gotten  your  friends 
organized,  the  next  thing  we 
recommend  you  do  with  geoDex 
is  really  very  simple. 

Throw  a  party. 

You  see,  geoDex  comes  with 
geoMerge,  a  mail 
merge  program  that 
customizes  form  let- 
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Put  them  both 
together  with 
geoMerge  and  it's 
toga  time! 

The  search  is 
over.  So  if  you're 
tired  of  looking 
for  friends,  waJtz 
right  down  to  your 
software  dealer  and  ask  him  for 
geoDex.  We  can't  guarantee  it'll 
win  you  more  friends,  but  it'll  cer- 
tainly keep  you  from  losing  them. 


ters,  announcements 
— even  party  invita- 
tions— with  the 
names  and  addresses 
stored  in  geoDex. 


To  order  call  1-800-443-0100  ext.  234 
geoDex  $39.95 

(California  residenls  add  6.5%  sales  tax.) 

$2. 50  US/$5. 50  Foreign  for  shipping  and 
handling.  Allow  six  weeks  for  delivery. 

CumtTHidna'is.ltrademariiofComiTiodore  Electmnici.  Lid.  GEOS. 
iKnDtx  and  B<jrkL'lc>  Siidwwrks  alt  tradenames  of  Eferiielev-  Sofswirks. 


First  you  write  the  letter  with 
geo Write.  Then  you  select  a 
list  from  geoDex. 


GEODEX 
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Berkeley 
Softworks 


The  brightest  minds  are  working  at  Berkeley. 


ADVENTURE  ROAD 


IrtSHA^'ADDAMS 


AutoDuel  vs. 
Roadwar  2000 


N^vs  and  opinion  from  a 
leading  explorer  oftljose 
fantasy  realms  called 
adventure  games. 


B. 


csidcs  sliaring  a  cominon  premise — 
a  futuiistic  America  where  people  wage 
wiir  in  iinned  cars — this  piiir  of  role-play- 
ing adventures  has  something  else  in 
common:  lliey  appeal  to  ;ilicianados  of 
otlier  forms  of  comjiLitcr  g;iming  as  well 
as  to  hard-core  adventure  fans.  Auto- 
Ditefs  ciuest  is  built  arounti  ;in  iircade- 
st\'lc  action  game,  -while  RfxuhirirJOOO's 
tactical  elcmcnt.s  will  attract  the  stra- 
tcgjAvar  giuiicr.  I  like  tlicm  hodi.  but  I 
suspect  most  people  will  choose  one 
over  the  otlicr.  So  let's  kick  tJie  tires  and 
check  under  die  hcxxis  to  find  out  which 
game  is  best  for  you. 

AutoDuel 

Programmed  by  Lord  British  and 
Chuckles,  AutoDuel  is  b;Lscd  on  a  popu- 
l;ir  IxKirtl  g:unc  cidled  Ciir  Wm-s '  Mt  takes 
place  on  tlie  United  States'  NortlieiLStern 
corridor  in  die  year  2030.  After  a  series 
of  disiLStcrs,  the  nation  Ls  in  chaos:  Out- 
laws nj;im  tlic  liigliways  luid  die  auto- 
duel — which  is  like  a  demolition  derby 
witli  guns — lias  replaced  biweball  as  tlic 
nationiil  pastime.  You  direct  tlie  acdons 
of  a  ch;iractcr  who  is  createtl  b>'  distrib- 
uting 50  points  among  tliree  skills:  dri\- 
ing,  marksmiuiship  :uid  s:il\age. 

The  action  begins  on  ftjot  in  New 
York,  \%here  :ui  ;inimated  figure  moves 
annmd  an  aerial  view  of  die  cit\'s  build- 
ings ;ind  streets.  Your  first  goal  is  to  earn 
cnougli  money  to  buy  a  more  powcriiil 
car.  'fliis  is  accomplished  by  winning  ;ui 
Amateur  Niglit  competition  in  a  Ciir  pro- 
vided b}-  die  arcn:i,  or  by  hopping  a  bus 
to  Adantic  Cit\'  and  getting  lucky  at  pok- 
er or  blackjack  Your  characters  skills  im- 
pri)\-e  a  bit  \\-ith  each  \-ictor\',  in  addition 
to  giiining  [irestigc  jxiints  antl  money. 
From  an  aerial  view,  die  duels  ;ire  depict- 
ed widi  scrolling  animation  but  no  sound 
effects,  and  gauges  show  things  like 
speed  ;uid  radar  display.  A  cle\er  Uick  in- 


Roacl  Way  2000 


AutoDuel 


corporates  die  R)le-playing  aspects  of  the 
game  into  the  arcade  sequences:  the 
higlier  your  driving  skill,  die  more  re- 
sponsive the  joysdck.  As  your  marksman- 
ship improves,  you  sKind  a  better  chance 
of  hitting  die  enemy  vehic!c-s.  Ilic  batdcs 
offer  new  dirilLs  for  sh(X)t-"em-Lip  endiu- 
siiLSLs:  -Mount  weapons  in  die  appropriate 
locations  and  you  can  fire  from  the  front, 
rear  or  cither  side  of  the  c:u".  These  ef- 
fccLS  ;ire  also  well-animated,  piirticularly 
tlie  tliunedirower. 

When  )'ou've  saved  enougli  c;isli,  you 
c~ui  buy  a  customized  car,  van  or  truck 
In  an  iisscmbly  plant,  )'Ou  chCKise  a  chas- 
sis \\'hose  weight  and  space  detennine 
things  like  die  siy.e  of  die  engine  you  c;ui 
use,  the  kind  of  weapons,  and  the 
amount  of  armor,  llie  design  process  is 
set  up  tike  a  joystick-operated  sprc-ad- 
sheet  diat  automatically  keeps  tracks  of 
all  die  variables,  including  money,  so  )'ou 
don't  lia\'e  to  do  any  madi.  llie  \;irier)-  of 
we;>|X)n.s — oil  slicks,  lasers,  recoiUc-ss  ri- 
fles— luid  various  tires,  engines  and  other 
parts  enable  you  to  design  the  death  car 
of  your  choice.  And  you  can  own  up  to 
20  \eliicles.  storing  diem  in  garages  in 
die  g;inie's  1 6  cities. 

U  \c)u  get  tired  of  figlidng  duels,  you 
can  earn  a  Uving  as  a  vigilante  who  tracks 
down  oudaws  on  the  road  or  as  a  courier 
for  die  .American  AutoDuel  A,s.sociation. 
The  higher  your  prestige  rating,  the 
more  v;duable  die  courier  missions  you'll 
get  from  die  AADA.  By  tra\elling  to  dis- 
tant cides,  you'll  disco\'er  clues  to  a  se- 
ries of  mini-niis.sions.  Tliese  ;ire  uncov- 


ered when  you  enter  the  biirs  and  truck 
stops  :uid  pick  up  rumors.  Inside  a  build- 
ing, menus  appe;ir  to  otter  \  ;irious  op- 
dons:  accept  a  courier  mission,  buy  a 
drink,  ;uid  so  on. 

Eventu;illy  y^ou  are  assigned  die  ulti- 
mate go;il:  to  track  dovt'n  a  major  crime 
boss.  Howe\'er,  diis  is  die  g;uiie's  \\e;ik 
point — you  don't  have  to  .vilve  the  mini- 
quesLs  along  the  way  in  order  to  qu:(iif\' 
for  die  main  goal.  (Imagine  being  able  to 
enter  Ultima  IVs  Abyss  widiout  having 
first  found  the  bell,  book  ;md  Ciuidle.)  So 
the  puKde-solving  aspects  of  die  g;une 
liave  been  decmphasized  in  fa\'or  of  ac- 
tion :uid  a  fair  amount  of  R)le-playing. 

SdU,  AutoDuel  kept  me  at  the  wheel 
tor  weeks — ^and  die  ftm's  not  over  when 
you  complete  die  final  missitin,  for  you 
c;ui  stiU  hop  in  your  c:ir  :uid  hit  die  road 
or  arcn;i  for  a  batde.  It's  available  for  die 
Commodore  64  and  Amiga. 

Roadwar  2000 

Roadu'iir  2(KM>  present-s  a  similar  .sce- 
n;irio,  except  diat  you  must  find  eiglit 
gotxl  guys  instead  of  one  bad  guy — these 
good  guys  are  the  scientists  who.se  work 
will  eliminate  an  epidemic  s^veeping  a 
kind  iil.so  dcvasuited  by  nucleiir  bombs, 
foreign  invaders,  and  a  host  of  doniesiic 
troublemakers.  A  single  c;ir  represents 
your  giing  as  you  press  ke\'s  to  move  it 
acro.ss  a  map  of  soudiem  (^;(nadii,  die 
L'nited  States  ;uid  nordiem  .Mexico.  Only 
a  ixirtkin  of  die  map  is  seen  at  :ui)'  one 
time,  and  the  whole  diing  covere  about 
ten  screens. 

Your  gang  starts  small,  but  maj'  grow 
to  include  hundreds  of  members.  In  ad- 
dition to  developing  their  skills,  you 
comiii;uid  up  to  1 5  vehicles  whose  attri- 
butes— speed,  maneuverability,  armor 
and  stj  on — must  be  enliiuiced  by  finding 
bod)'  shops  and  garages,  lliere  are  19 
kinds  of  cars,  trucks  ;uid  buses,  but  \'oii 
don't  get  to  bu\'  or  design  \eliiclcs  as  in 
AutoDuel.  And  die\-  ;ire  outfitted  widi 
cros-sbows  or  generic  firciimis — nothing 
exotic. 

In  die  1 20  cities  or  while  traveling  die 
higliwa>'s,  your  options  ;ire  usu;illy  limit- 
ed to  diree:  liit  1.  to  loot  for  ftxxJ.  ammo 
and  odier  stulf;  V  to  search  for  \'ehicles; 
and  P  to  look  for  people.  Tlie  results  arc 
randomh'  determined  :uid  displayed  in 
brief  mes.sagcs  shown  in  a  diree-line  text 
window  bek)w  die  map. 

Vi'hen  looking  for  people,  you  may 

find  a  scientist,  a  clue,  or  you  might  run 

C.diilimteil  on  pg.  S9 
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Having  thousands  of  facts  is  one 
thing.  Finding  the  ones  you  need  is 
another.  Which  is  why  you  should 
consider  buying  geoFite.  The 
easy-  to -use  database  manager  for 
GEOS-equipped  Commodores. 

Whether  they're 
receivables  or  reci- 
pes, once  you  have 
geoFile,  you  can  fly 
through  facts  in  sec- 
onds, clicking  and 
picking  the  ones  you 
want,  just  the  way 
you  want  them. 

It's  as  simple  as  fill 
ing  out  a  form. 

The  geoFile  "form"  organizes  all 
kinds  of  information.  Like  names, 
numbers,  rates  of  objects'  accelera- 
tion when  dropped  from  two -story 
buildings — you  name  it.  As  much  as 
you  can  fit  on  a  printed  page. 


munsEm^mscmi^Esai^i 
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Once  your  data  is  in,  the  real 
fun  begins. 

You  want  names  of  bus  drivers? 
From  Arizona?  Under  five  foot  six? 
Between  the  ages  of  33  and  35?  With 
incomes  of  $22,396  or  more?  Who 
sneezed  in June? 
Just  click  your 
mouse  and  watch 
geoFile  go  to  work. 
Searching.  Sorting. 
Comparing  and  listing 
the  data  alphabetically 
Or  numerically.  Or  in 
whatever  priority  your 
form  specifies. 
You  can  put  the  data 
into  form  letters  and  lists  with  geo- 
Merge.  Or  into  math  functions,  with 
geoCalc.  Or  if  you  really  want  to  get 
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fancy,  you  can  display  your  infor- 
mation graphically  with  geoChart. 

And  geoFile  does  it  all  in 
seconds. 

Now,  with  all  that  in  mind,  what 
are  you  going  to  do — spend  a  few 
bucks  on  geoFile? 

Or  spend  all  night  wishing  that 
you  had? 


To  order  call  1-800-443-0100  ext.  234 
geoFile  $49.95 

(California  residents  add  6. 5%  sales  tax. ) 
$2.50  US/$5.50  Foreign  for  shipping  and 
handling.  Allow  six  weeks  for  delivery. 

i;^;(>S.  >!n)KilcBP^IIrrfLclcv!^fllwivk«3:Elf]d[:piKiK»(.f  KciJ^Hcr  ^llwnk^. 


GEOFIIE 


The  brightest  minds  are  working  at  Berkeley. 
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BY  MARK  HAl'GAN 


Calendar  Maker 

for  the  Commodore  PET, 
VIC  20,  64  atid  128 

Xlow  do  you  keep  >oiir  life  ;ind  acti\ites  organized?  If  you 
iirc  like  mc,  you  need  ;ili  tlie  help  \ou  c:ui  get!  One  practice 
that  helps  me  to  keep  my  schedule  in  order  is  to  make  note  of 
upcoming  events  and  acti\1ties  on  ni}  calendar.  Tiiis  works 
well  until  1  tia\c  to  enLse  a  zillion  notes  to  realign  my  schedule 
:ilter  a  chiuige  of  pliu^s,  or  until  my  calendiir  gets  so  flill  diiit  1 
simply  nin  out  of  space  tor  notes.  At  times  like  tliat  1  wish  1 
could  simply  zap  up  anodier  calendar  for  the  month  and  start 
fresh  or  miike  my  additional  entries. 

Well,  now  I  c;m  do  cxacdy  tliat  widi  Calendar  Maker.  I  hope 
some  of  \-ou  will  tintl  it  ;ls  useftil  as  I  have.  Vi'idi  it  you  c;in  print 
out  a  RiU-page  ciilentlar  for  ;ui\-  montli  in  any  ye;ir,  past  or  fu- 
ture, 'lliat  seems  a  radier  powerful  diing  to  be  able  to  do.  It  is 
remarkable  that  such  a  short  BASIC  program  manages  to  do  it. 

llie  routine  diat  actu;dly  computes  the  day  of  the  week  tliat 
tiegins  any  month  in  ;uiy  year  is  contained  in  lines  70  ;ind  79. 
Iliis  is  die  implementation  in  BASIC  of  a  well-knowii  ;ilgo- 
ritlim  dial  is  at  die  hcirt  of  perpetual  c;ilendar  programs  tliat 
iTin  on  many  m;iinthime  systems.  To  this  routine,  I  have  added 
coding  tiiat  makes  it  eas\'  for  you  to  select  the  mondi  and  year 
you  are  interested  in  ;ind  dien  print  out  a  nicely  formatted,  Ml- 
page  calendiir  of  Uiat  month. 

Ciilendm-  M;iker  works  for  months  in  the  piist  iLS  well  as  die 
tliture,  so  \ou  c;ui  print  out  the  mondis  in  which  historical 
c\'ents  to(.)k  place.  Did  you  know  that  the  day  on  which  die 
Second  Continental  Congress  adopted  the  Declaration  of  Inde- 
pendence, July  4.  1776.  w;ls  a  Tliursday?  \X1io  knows,  that 
question  might  come  up  during  )Our  fa\oritc  tri\-ia  g;mie! 

If  you  want  to  use  Calendxir  Milker  in  diis  way,  \'ou  really 
need  to  know  a  litde  more  about  die  way  in  whidi  tlie  calen- 
dar has  evoh'cd.  Calendar  Maker  prints  out  die  months  ac- 
cording to  die  nuKlem  Gregorian  calendar.  This  is  the  calendar 
diat  \\e  ;ill  use  e\er\dxiy  :uid  diat  is  in  use  in  most  countries 
din)ugliout  die  world.  It  Ls  niuiied  for  Pope  Gregon,'  XllI  who 
intKxluced  it  in  1 582  as  an  improvement  on  the  Julian  calen- 
dar wliich  had  been  in  use  since  46  B.C.,  the  time  of  Julius  Cae- 
siir.  C:;ilendar  Maker  c;ui.  dierefore.  be  used  reliabh-  for  dates  in 
liunopciin  liiston'  :ifter  1582. 

R)r  dL-.iling  widi  HnglLsh  :uid  American  history;  you  need  to 
know  diat  the  mtxlem  Gregorian  calendar  was  not  used  in 
England  or  the  .\merican  colonies  until  1  "52. 1  suspect  the  de- 
lay lietween  1582  and  1^52  had  something  to  do  widi  the 
conflict  diat  existed  then  between  die  Catholic  and  Anglican 
churches. 

Calendar  Maker  is  \'er>'  eas>'  to  use.  It  should  run  on  :uiy 
Commodore  8-bit  computer:  PET.  VIC  20,  64  and  1 28,  using 
just  alx>ut  iui\-  Commodore  printer  or  any  non-Coniniodore 
printer  wixh  a  suitable  interface.  Tlie  program  does  print  a 
couple  of  ComnuKlore  grapliics  characters  and  dtKS  use  the 
C;onimodore  1525  printer  control  codes.  CHRS{  14)  and 
(;HRS{  15 ).  to  aim  double  widdi  printing  on  and  off  in  lines 
1 3-t  and  1 36.  These  are  the  only  things  that  could  possibly  be 


Print  out  a  full-page  calendar  for 
any  month  in  any  year,  past  of 
future. 


misinterpreted  by  some  printers.  If  you  should  have  an)'  prob- 
lems, check  your  printer  mid  interface  iii:uiu;ils  to  see  if  grapli- 
ics ch:iracters  or  dicse  control  ccxles  should  be  hiuidled  in 
some  special  wa>'.  As  it  is,  C;Uend;ir  Maker  runs  Ix-autilully  on 
my  Gemini- 1  OX  wiUi  Connection  interface.  This  combination 
emulates  a  (x)nimt)dore  1525  printer 

To  print  a  calendiir,  simply  load  ;uid  run  Calendar  Milker. 
You  will  Ix'  ]iromptcd  tor  die  mondi  ;uid  ye:ir  diiit  you  wLsli  to 
print.  You  niiiy  enter  die  numlxrr  for  die  mondi,  its  niuiie,  or  :ui 
abbre\'iation  which  consists  of  ent)ugli  of  die  first  few  letters  of 
die  niondi's  name  to  identify  it  uniquely.  For  example,  to  enter 
September  you  would  type  9,  September,  Sqit  or  e\'en  S,  since 
no  odier  niondi  hiLs  a  iiiinie  di;it  liegiiis  widi  S.  Remember  die 
comma  lielween  die  niondi  iind  ye;ir  if  you  w:uit  to  enter 
diem  iit  die  Siuiie  time.  1  hii\e  set  up  Calendar  Maker  sti  diat  if 
you  enter  a  number  less  di:ui  100  for  the  year,  sa);  85,  dieii 
Calendar  Maker  assimies  you  mean  1985. 

Once  you  hit  die  llEll'RN  key  to  enter  you  choice,  Calen- 
diir Milker  will  ask  you  to  make  sure  your  printer  is  turned  on. 
Tliis  gives  you  a  chiuice  to  niiike  certiiin  diiit  it  is  and  diat  you 
are  set  iit  the  start  of  a  fresh  piige.  When  \ou  iirc  ready,  hit  any 
key  and  Ciilendar  .\Uiker  will  prtKeed  to  fill  the  page  with  the 
calendiir  tor  die  mondi  you  selected.  If  \ou  should  ^^■ilnt  to 
print  addition:il  mondis,  simply  run  die  prognuii  iigiiin.  .Miike 
sure  diat  \'ou  set  \-our  printer  to  die  start  of  die  next  piige 
when  you  iire  prompted  to  check  diiit  \our  printer  is  on  and 
ready. 

One  final  diing.  what  da)'  of  die  week  were  you  bom  on? 
Tlie  first  niondi  )-ou  niiglii  -Wiint  to  try  CidentUir  .Milker  on  is 
the  one  you  were  bom  in.  As  it  turns  out,  I  was  bom  on  a  Sun- 
day. Q 

Before  nping  ihis  program,  read  "How  lo  Emcr  Pn)^ms"  ind  "How-  lo  I'se  the  Majsainc 
Enm'  Progran."  The  BASIC  programs  in  (his  magazine  are  a^lidjle  on  disk  from  Loadstar, 
P.O.Box  30007,  Shrevcpon,  LA  711.W-000"  1-8O0-8J1-2694. 

Calendar  Maker 

10  REM  PRINTING  PERPETUAL 

CALENDAR' BAEE 
20  DIM  C$(42) ,D$(31) ,M$ (12) ,N(12) , 

DNS(7) 'BINE 
22  PRINT" [CLEAR] ":PRINT  SPG (9) ; " [ RVS ] 

Continued  on  pg.  28 
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Put  on  your  black  belt  and  challenge  your 
friends  or  the  computer  through  nine 
picturesque  settings  in  this  leading  Martial 
Arts  Game  to  become  the  KARATE 
CHAMP.  For  the  Commodore  647128 
and  the  48K  Apple  II '  Series. 


As  the  crack  shot  COMMANDO,'  battle 
overwhelming  odds  to  defeat  advancing 
rebel  forces.  Armed  with  only  a  machine 
gun  and  hand  grenades, you  must  break 
through  the  enemy  lines  to  reach  the  fort- 
ress. For  the  Commodore  64  "/ 1 28. 


Prepare  f or  the  f I  ght  of  your  I  Ife . . .  you 
are  the  KUNG-FU  MASTER."  -  Battle  the 
evil  forces  through  the  five  dangerous 
floors  in  the  wizard's  castle  to  rescue  the 
captive  fair  maiden.  For  the  Commodore 
64'7128andthe48KAppte  ir  Series. 


Apple  and  Commodore  64  are  trademarks  of  Apple  Com . 

puter.  Inc.  and  Commodore  Electronics,  Ltd.  respectively. 

■  c  Data  East  USA,  Inc.  Mfd.  under  license  from  Capcom 

USA. 

*  •  c  irem  Corp.  Mfd.  under  license  by  Data  East  USA,  Inc. 


DATA  EAST  USA,  INC. 

470  Needles  Drive,  San  Jose,  California  95112 

(408)  286-7074 

c  1 986  Data  East  USA,  Inc.  All  rights  reserved. 
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;READ  N (I) :NEXT 
iREAD  DN5(I) 


I ' FLWK 


Continued Jrom  fjfi.  Jd 

PERPETUAL  CALENDAR  " ' DECI 
30  REM  INITIALIZE  DATA  MATRICES ' BWRF 
32  FOR  1=1  TO  31:READ  D$(I) 

:NEXT  I'FMYG 
34  FOR  1=1  TO  12:READ  M$(I) 

:NEXT  I'FMHI 
36  FOR  1=1  TO  12; 
3a  FOR  1=1  TO  7: 

:NEXT  I'FMHM 
40  REM  INPUT  MONTH  AND  YEAR'BRSF 
42  PRINT" [DOWN]  FOR  WHAT  MONTH  AND 

YEAR  DO  YOU  WISH  TO"'BAAM 
44  PRINT" [SPACE10] PRINT  THE 

CALENDAR?" 'BARL 
46  INPUT" [DOWN]  MONTH,  YEAR  ";M$,Y 

:IF  Y<100  THEN  Y=Y+1900 ' GQTQ 
50  M=VAL(M$):IF  M>0  AND  M<13  THEN 

62'HNEI 
52  I=1'BCSE 
54  IF  M$=LEFT$(M$(I) ,LEN(M$))  THEN  M=I 

:GOTO  62'HTGN 
56  I=I+1:IF  I>12  THEN  42'FJCM 
58  GOTO  54'BCQJ 
60  REM  PRINTER  CHECK'BMRG 
62  PRINT" [DOWN2,SPACE2] 

BE  SURE  YOUR  PRINTER  IS  TURNED  ON!" 

:FOR  1=1  TO  500:NEXT  I'FIUS 
64  PRINT" [DOWN, SPACE7]HIT  ANY  KEY  TO 

CONTINUE. "'BAKO 
66  GET  A$:IF  A$=""  THEN  66'EHTL 

70  REM  CALENDAR  ROUTINE 'BPNH 

71  J=3  67*Y-INT(7* (Y+INT( (M+9)/12) )/4) 
+  INT (275*M/9) +1721031 'PJEV 

72  K=0:IF  M<=2  THEN  K=-1'HHKL 

7  3  J=J-INT(3* (INT ( ( Y+K) /100 ) +1 ) /4 ) 
'  JSWP 

74  K=N(M):IF  M02  THEN  79'FKRM 

75  W=INT(Y-100*INT(Y/100)  ) 
:X=INT(Y-4*INT (Y/4)  ) 
:Z=INT(Y-4  00*INT(Y/400) ) ' SMND 

76  IF    XO0    THEN    79'EEQM 

77  IF    W=0    AND    Z<>0    THEN    79'GGTP 

78  K=29'BDDM 

79  X=J-7*INT(J/7) 'FHWR 
100  REM'BARU 

102  REM  PRINTING  ROUTINE'BPGC 

104  REM'BARY 

110  REM  PREPARE  OUTPUT'BNRA 

112  H$="[CMDR  @11]"'BCCG 

114  FOR  1=0  TO  42:CS (I)="{CMDR  G, 

SPACE10] ":NEXT  I ' FMQH 
116  FOR  1=1  TO  K:C$(I+X)=D${I)+" 

[SPACES] ":NEXT  I ' HRJL 
120  REM  OPEN  PRINTER  CHANNEL'BSVC 
122  OPEN  4,4'BDAA 
130  REM  PRINT  TITLE'BKHB 
132  IF  I+X<=36  THEN  F5=1:F0R  1=1  TO  5 

: PRINT#4:NEXT  I'LPPK 
134  T$=M$(M) +STR$ (Y) :C=20-LEN (T$ ) /2 

:PRINT#4,CHR$ (14) ; ' JCAN 
136  FOR  1=1  TO  C:PRINT#4,"  "; 


:NEXT  I'FJMJ 
138  PRINT#4,T$:PRINT#4,CHR$(15) 

:PRINT#4 'ENML 
140  REM  PRINT  DAY  NAMES "BNJD 
142  FOR  1=1  TO  7:PRINT#4,DN$ (I) ; 

:NEXT  I :PRINT#4 'GREI 

150  REM  PRINT  MAIN  CALENDAR ' BRWF 

151  FOR  1=1  TO  5:J=7*I'FHGF 
153  FOR  L  =  l  TO  7  :  PRINT*  4  ,  H$  ;. :  NEXT  L 

:PRINT#4 'GNNJ 
155  FOR  L=6  TO  0  STEP  -1 

:PRINT#4,C$(J-L) ; :NEXT  L 

:PRINT#4," [CMDR  G]"'JTIP 
157  FOR  L=l  TO  7:F0R  N=l  TO  7 

:PRINT#4,C$ (0) ; :NEXT  N 

:PRINT#4," [CMDR  G)":NEXT  L  '  KXTS 

159  NEXT  I 'BBCJ 

160  IF  F5=l  THEN  180'DGPE 

170  J=42'BDWD 

171  FOR  K=l  TO  7:PRINT#4,H$; ;NEXT  K 
:PRINT#4 "GNLJ 

173  FOR  K=6  TO  0  STEP  -1 

: PRINT#4 ,C$ (J-K) ; :NEXT  K 

:PRINT#4," [CMDR  G]"'JTFP 
175  FOR  K=l  TO  7:F0R  L=l  TO  7 

:PRINT#4,C$(0) ; :NEXT  L 

:PRINT#4," [CMDR  G]":NEXT  K ' KXNS 
180  FOR  K=l  TO  7:PRINT#4,H$; :NEXT  K 

:PRINT#4 'GNLJ 
190  REM  CLOSE  PRINTER  CHANNEL  AND 

QUIT'BBFM 
192  CLOSE  4:END'CCQH 
200  REM  DATA'BESW 
210  DATA  "[CMDR  G]  1","[CMDR  G]  2",'' 

[CMDR  G]  3", "[CMDR  G]  4"," [CMDR 
5"," [CMDR  G]  6"," [CMDR  G]  7"," 

[CMDR  G]  8"," [CMDR  G]  9", "[CMDR 

10"'BJSI 
220  DATA  "(CMDR  G]11","[CMDR  G]12"," 

(CMDR  G] 13"," [CMDR  G] 14"," [CMDR 

15"," [CMDR  G] 16"," 

[CMDR  G] 18", "[CMDR 

20"'BJAK 
230  DATA  "[CMDR  G] 21", "[CMDR  G]22"," 

[CMDR  G] 23"," [CMDR  G] 24"," [CMDR  G] 

25"," [CMDR  G] 26"," [CMDR  G]27"," 

[CMDR  G] 28", "[CMDR  G] 29"," [CMDR  G] 

30"," [CMDR  G] 31"'BKQM 
240  DATA  " JANUARY", "FEBRUARY", "MARCH" , 

"APRIL" 'BDYI 
250  DATA  "MAY", "JUNE" , "JULY", "AUGUST", 

"SEPTEMBER" 'BEQK 
260  DATA  "OCTOBER", "NOVEMBER", 

"DECEMBER" ' BCX J 
270  DATA  31,28,31,30,31,30,31,31,30, 

31,30,31'BKZK 
280  DATA  " [SPACE3]SUNDAY[SPACE2] " ," 

[SPACE3] MONDAY [SPACE2] "," [SPACE2] 

TUESDAY [SPACE2 ] ","  WEDNESDAY 

" 'BDEP 
290  DATA  " [SPACE21THURSDAY  ","[SPACE3] 

FRIDAY [SPACE2] " , " [SPACE2] 

SATURDAY  " ' BCPN 

END 


G] 

[CMDR    G]17"," 
G] 19"," [CMDR    G] 
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The  time:  1400 
hours.  Some- 
where in  the 
Pacific.  Some 
ill-fated  coordi- 
nates in  World 
War  11. 


action, 
around  you'll  be  right  in 
the  middle  of  it  all.  You 
knew  it  wouldn't  be  pretty. 
But  how  tough  could  it 


iMmti^i-  Cojitnil  jrp(/rt<i  a  hit  on 

,/„-.v.,w,,*..<.„rf,„.4j,.,„.|jg  to  rescue  a  downed  pi 


be  the  twin 
40mm  Bofors 
_    aircraft 
guns?  Or  the  5"lead-spewers 
aft?  Depth  charges 
or  torpedoes? 
Autopilot  or  guts? 


? 


You're  at 
the  helm, 
command- 
ing the 
greatest  con- 

RmltirsMs inbound Zcnics.Rmd\  CentratlOnOl 
fimmnS gunnery  pasilhiis.  Man  //ic  f  vim/^Tirii*- 
anliammfl  liirrcts.  They  W  aminn.  ill  CpU  WCI 

ever  put  in  a  lightweight 
fighter.  The  deadly 
Fletcher  Class  Destroyer. 
You've  embarked  on  the 
:  simulation  that  actually 
-•combines  the  intricate, 
[^large-scale  strategy  of 
jWargamingwith 
the  intensity  of 
furious, 


It  sure  seemed  a  lot  easier 
than  shelling  islands,  escort- 
ing a  convoy  or  hunting  subs. 

Or  so  you 
thought. 
But  now 
look  what 
you've  got. 
Thirteen 
fully-opera- 
tional, ear- 
bursting  battle  stations  to 
worry  about,  all  armed  to  the 
gills.  Not  to  mention  radar. 
Navigation.  Sonar. 

And  half  the  Japanese  fleet 
crawling  up  your  spine. 

Time  to  make  some  tacti- 


YOU'VE  ALWAYS  DREAMED  OF 
BEAUTIFUL  MODELS.  Nowyou  can 
pick  up  an  enlin  assault  fleet,  including 
a  replica  Flvteticr  Class  Destroyer,fmm 
Revel!.  Or  win  an  authentic  scrambled 
eggs  flight  deck  cap.  Sweepstakes  details 
are  in  every  box,  or  write  for  an  entiy 
coupon.  No  purchase  necessary.  Stceep- 
stakes  ends  June  15, 1987.  Official  rules 
are  available  at  participating  dealer.";. 


Any  choice  could  be  your 
last,  so  make  it  good. 
Suddenly,  you  hear  the 
ominous  rumble  of 
incoming  Zeroes. 
You  fire,  and  send 
one  plummeting  to 
the  sea,  trailing  a 
plume  of  smoke. 

On  instinct, you  in- 
struct the  bridge  to 
commence  evasive  maneuvers. 

Even  though,  by  ^ 
experience,  you 
know  there's  no-  . 
where  to  run.   j^. 


I 


EPyx 
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Telephone  Lister 

for  the  PET,  VIC  20,  Plus/4, 
Commodore  16,  64  and  128 


Jj"  you're  like  me,  you  probably  have  a  scribbled  list  of  tele- 
phone numbers  near  your  telephone,  a  sheet  of  paper  that 
may  liave  started  out  neatly,  but  so<:>n  eiidc-d  up  witli  additions 
penciled  in  eve^^■  which  wa\'  and  old  numbers  scratched  out 
;md  tlic  nc-w  ones  squeezed  in — not  alw^ays  legibly.  It  finally 
dawned  on  me  that  this  was  a  perfect  job  for  a  home  comput- 
er! 

Telephone  Lister  is  a  usellil  litde  program  tliat  will  keep 
track  of  those  most  frequently  used  telephone  numbers  and 
reprint  a  sorted  list  of  tlicm  for  you  whene\cr  tlie  old  one  is 
outtUited.  it  will  even  resiive  itself  automatically. 

lype  in  tile  progr;uii  ciux;fi.illy,  substituting  your  own  infor- 
mation for  the  phone  names  and  numbers  I  give  as  examples 
in  the  DATA  statements.  Note  tliat  tlie  n;unc  and  numbers  are 
.separated  by  a  slash.  If  there  Ls  a  bu.siiiess  nimilxfr  for  a  particu- 

Brfofc  nprng  Ihcse  pn^jams,  read  "How  w  Enier  Prognnis,"  and  'How  to  L'sc  the  Magazjnc 
Enin'  Program."  The  B.4SIC  progranu  in  this  majtaiinc  an;  ai-ailablc  on  didi  rrom  Usxisas. 
P.O.  Box  .VXXr. ShfCTCpon.  L\  71  ).««K)-.  |.8O0-851-269i 


100 
110 
120 
130 

140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 

260 

270 

280 
290 
300 


310 
320 

330 


Telephone  lister 

PRINT  CHR$(147) fCHRS (14) ; 'DLNY 

FOR  X  =  1  TO  40'DEUX 

SP$  =  SP$  +  "  '•  :  NEXT'DHWA 

PRINT  "[SHFT  R]EADING 

NUMBERS. . ."'BAID 

DIM  N$(50)  :  KT=0'CKEC 

READ  N$'BCXA 

IF  N$  =  "END"  THEN  240  ' DFWE 

FOR  X  =  KT  TO  1  STEP-1'FFGG 

IF  N$  >=  N$(X)  THEN  210  ' EKFH 

N$(X-H}=N$  (X)  'CLTH 

NEXT  X'BBRV 

N$(X-H)=N$'CIAA 

KT  =  KT-I-1'CFCA 

GOTO  150'BDFA 

REM  ALL  READ  &  SORTED 'BOWE 

PRINT  :  PRINT" [SHFT  P] 

RINTER  READY?" 'CBPG 

GET  A$  :  IF  A$<>"Y"  THEN  260  'FITH 

LC$=CHR$(17)   :  REM  MAKES  OLDER 

CBM  PRINTERS  USE  LOWERCASE ' DQLQ 

OPEN  4,4'BDAF 

PRINT#4  :  PRINT#4'CDJG 

PRINT#4,LC$;" [SHFT  T,SHFT  E, 

SHFT    L,SHFT    E,SHFT    P,SHFT    H, 

SHFT    0,SHFT    N,SHFT    E]      [SHFT    N, 

SHFT    U,SHFT    M,SHFT    B,SHFT    E, 

SHFT    R,SHFT    Sr"BGNL 

PRINT#4 'BBDX 

PRINT#4,LC$;"[SHFT  N,SHFT  A, 

SHFT  M,SHFT  E] "; ' BHTE 

PRINT#4,LEFT$(SP$,36) ; 'CLRD 


Sort  and  print  your  most  frequently 
used  telephone  numbers. 


lar  ix;rson,  just  add  :mother  slash  and  dien  that  number. 

The  quotation  m:irks  surrounding  each  piece  of  daut  are 
there  so  we  may  use  upper-  and  lower-case  letters  and  com- 
mas in  our  data.  As  an  ex|x;riment,  try  leaving  out  tliat  first 
quotation  mark,  and  dien  list  that  line  number.  The  last  DATA 
must  be  end  or  the  program  will  give  you  an  out  of  data  emjr 

If  )'ou  don't  want  to  sa%e  the  program  under  Uic  name 
Phone  Numbers  as  1  did,  ch;mge  the  name  in  lines  ChO  ;md 
660  to  whatever  \ou  want  And  if  you  tltink  you'll  be  using 
more  than  50  names,  just  change  the  50  in  the  DLM  statement 
in  line  14()  to  whatever  \ou'll  need. 

The  progr.mi  should  work  unmodified  on  just  about  every 
Commcxion.'  liome  computer  ;uid  witli  :ill  of  the  Commodore 
printers,  even  my  ;uicient  model  2023.  You  can,  of  course, 
modify  your  own  version  of  tlie  prognmi  for  screen  colors  :uid 
things  like  tliat. 

No  more  sloppy  ILsts!  Q 


340  PRINT#4,LC$;"[SHFT  H,SHFT  0, 

SHFT  M,SHFT  E]";'BHCG 
350  PRINTH, LEFTS  (SP$, 14)  ;  'CLNF 
360  PRINT#4,LC$;"[SHFT  W,SHFT  0, 

SHFT  R,SHFT  K] "'BGTI 
370  FOR  X  =  1  TO  80'DEYG 
380  PRINT#4,"-"; ' BDVG 
390  NEXT  :  PRINT#4'CCKH 

400  REM  NOW  PRINT  NAMES  &  NUMBERS 'BVWE 
410  FOR  X  =  1  TO  KT'DEEB 
420  REM  SEPARATE  NAMES  &  NUMBERS 'BVDG 
430  N$  =  N$(X) 'BHMD 
440  Y=1'BCJD 

450  IF  Y>LEN(N$)  THEN  470  'EIRH 
460  IF  MID$(N$,Y,1)<>"/"THEN  Y=Y-H 

:GOTO  4  50'IPHM 
470  NA$  =  LEFT$ (N$,Y-1) 'DKFJ 
480  N$  =  MID$(N5,Y+1) 'DJRK 
490  Y=1'BCJI 
500  IF  Y>LEN(N$)  THEN  HN$=N$  :  BN$="" 

:  GOTO  540  ' HSFH 
510  IF  MID$ (N$,Y,1)<>"/"THEN  Y=Y-H 

:GOTO  500'IPDI 
520  HN$  =  LEFT$ (N$,Y-1) 'DKMP 
530  BN$  =  MIDS(N$,Y+1) 'DKHG 
540  NA$=LEFT$  (NA$-l-SP$,40)  'DOYI 
550  HN$=LEFT${HN$+SP$,18) 'DOSJ 
560  PRINT#4,LC$;NA$;HN$;BN9'BRYJ 
570  NEXT  X'BBRG 
580  PRINT#4  :  CLOSE  4'CDRI 
590  PRINT  :  PRINT'CBHJ 
600  PRINT" [SHFT  W] ANT  TO  RESAVE  THIS 

VERSION  ON  DISK?"'BAEK 
610  GET  A?  :  IF  A$<>"Y"AND  A$<>"N" 

THEN  610  'IKRI 
620  IF  A$="N"  THEN  END'ECYF 

Continued  on  pg.  58 
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rc€/HiPiLiricic 

YII€IE 


226  Lincoln  Road 
Miami  Beach,  FL  33139 


Blue  Max 

New  York  City/Air  Support 

Zaxxon 

Zepplin 

Zepplin 

Musicalc  1 

Musicalc  2 

Musicalc  3 

lemplate  1  (Afra/Lalin) 

Keyboard 

Christmas  Diskette  .... 


«6 


*6^ 


" 


Songwriler 

Ptii  Beta  Filer 

Mostertype  Rg.  &  Formulas  *7^'' 


Triad 
Zorkl 
Zotkll 
Zork  III 
Suspended 

StCfCfOSS 

Deadline 


Diamond  Inline 
Costle  Haslie 
Rack  'Em  Up 


$477 


Boste  Coach 
Computer  Coach 
Keyijoofci  Cooch 
Speedreading  Coach 


Typing  Cooch 


-i 


Sales  Edge 
Management  Edge 
Negotiation  Edge 
Communication  Edge 
General    Ledger  ,  , 


NOW 

n4"EA 

ALL  S  for  'S9" 


M 


77 


Super  Expander 

Simons  Basic 

Nevada  Cobol 

Jupiter  Lander 

Kickman 

Seowolf 

Speed  Binqo  Moth 

Radar  Rat  Race 

Visible  Solar  S. 

Blue  Print 

Loiarian 

Omega  Race 

Wizard  of  Wot 

Le  Mans 

Gorf 

Supermash 

Strapost 

Frogmaster 

Stor    Ranger 


P 

IBS-    «4" 


Marrager 

Magic  Desk  I 

Easy  Finance  I 

Easy  f  iixance  H  *--„ 

Easy  Hnonce  III '12" 


Jyruss 

Jomes  Bond 

Star  Wars-Arcade  Game 

QBert 

Popeye 

Frogger 

Frogger  II  Ihreedeep  .  . 


loti  Text  2.6 
TotI  Label  2A 
lime  Monagi   ^ 
Research  Am^ 
TotI  Speller  36 
Toll  Infomaster 


\...^3^ 


«6 


77 


Sotans  Hollow 

Hulk 

Avenger 

Clowns 

Fist!  Metic 

Number  Nabber 

Pet  Emulator 

Pinboll  Spectacular 

Solar  Fox 

Tootfi  Invaders  .  ,  . 


"^ 


Comm  Step  By  Siep 
Comm  Step  By  Step 
Picture  Blocks  i? 
Presctiool  One/ 
Reading  Wtiaf's  Diff. 
Vocabulary  Builder  I 
Bocabulary  Builder  II 
Wordwise.Analogies 


LMIcrocNp 
VQuiz 
rNobbef/ShopGrab 
Chopper  Math 
Type  Write 
Music  tvlact*)e 
Music  Composi 
Gulpll/Arrow  Grapl 
frenzy/Flip  Flop 
Next  Letter  or  Num 
Ltr  Match  More/Less 


INFOCOM  FOR  ATARI  ST 

CuttriroQts 
Zort!  I 
Zork  tl 
Zork  ril 
PicjneKoir 
SpellQreoiter 
SusfierKlea 
Suspect  ^^ 


22° 


^^ 


^Oh-« 


53' 


Practicolc  64 
6d  Doctor 

Practifiie 

(Database  Manager) 


$14 


77 


Retro  Ball 

Hes  Mon  64 

Hes  Writer  64 

6502  Prof,  Dev.  Sys, 

Turtle  Graphics  II 

Gridrunner 

Benji  Space  Rescue 


%  '^9^ 


'On, 


'ej 


^^^, 


h 


irvtocof" 

600KS 


'V^'' 


t^ 


5X  aeaneP\ 


fi! 


\^- 


^B' 


Omni  Cole 
Multiplan  . 


$12' 


«5 


77 


English  II 
English  Hi 


Castie  Woltenstein 

Rescue  Squad 

Beyond  Castle  Woltenstein 

Space  Taxi 

Smart  Start  (Utility) 

New  Super  Text 


*6 


77 


SPECIAL 


Codewriter 
Adventure  writer 
File  wriler 
Dialogue 
Elt 

Home  Integrator 
Thriller  Series 
Adventure  Writer 


US  Constitution 

[Jeath  in  the  Caribbean 

Heist 

Boulder    Dash 


«9 


77 


^u 


r> 


Easy  Finance 
Word  Name  Machine 
Accounts  Receivable 
Accounts 


1984  Taxpayers  Survival  .  .  *7 

$8" 


77 


ORDERS  ONLY 


1-800-331-7054 

CUSTOMER  SERVICE  OR  IN  FLORIDA  (305)  538-1364 
FREE  FREIGHT  ON  ALL  ORDERS  WITHIN  CONTINENTAL  U.S.  OVER  $100.00 


Orders  under  S100.00  add  $4.00  shipping  and  handling.  C.O.D.  orders  add  $4.00. 
Prices  relied  a  3%  cash  discount.  A. P.O.,  F.P.O.  orders  add  6%  shipping  &  handling.  Postal  orders  shipped  surface 
Add  e'Vb  for  air  shipment,  Add  3%  lor  VISA/MC.  Florida  residents  add  5%  sales  tax.  Personal  checks  allow  2  weeks  for  processing. 

Prices  Subject  to  Change  Wilhout  Notice. 

lOBDERS  received  before  12:00  PM  WILL  BE  SHIPPED  SAME  DAY. 


JIFFIES 


in'  lii-NNi-rr  cxkikscjn,  jr. 


The  Clock 

for  the  Commodore  64 


X  he  Clock  is  :ui  intfn-npt-dri\Ln  iiiachinL-Uuiguajjc  nnitinc 
that  adds  a  digital  clock  ;u^^'\\■h^.Tt■  on  your  screen.  It  keeps  on 
ticking  even  when  oilier  pn)gnmis  ivsv  iiinnin};.  llie  clock  can 
be  easih'  set  ;uid  read  from  H/\SK '.  ;uid  is  it!e;il  ;ls  a  timer  in  yoiir 
o^NTi  video  game.  A  menu  allows  yon  to  cli(K)se  die  color  of 
your  clock,  posidon  on  screen  ;uid  C\pe  of  dispku'.  For  exam- 
ple, you  can  clicxise  a  fill!  clock  or  just  a  seconds  tinier. 

'Ilie  6526  CIA  cliip  tliat  is  used  lor  l/()  in  the  c:onini(Kk)re 
(A  has  a  Time  of  Day  Clock.  Ihis  clock  keeps  track  of  time  in 
hours,  minutes,  seconds  ;uui  tentJis  of  seconds,  ;ind  it  even  has 
an  AM/P.M  flag.  Tlie  Time  of  Day  (;kx.k  is  not  tlie  s;imc  as  Tl  S. 
In  fact  it  is  not  used  by  BASK;.  Ihe  C^kK'k  is  more  accurate  tliiui 
TIS  and  notlting  but  turning  off  tile  computer  will  upset  the 
time. 

How  can  this  great  little  clock  be  put  to  use?  Mt)w  about  if 
we  wrote  a  B,^IC  program  to  peek  at  tlie  clock  ;uid  print  it  on 
the  screen?  However,  it  would  Ix"  much  lx.'tter  if  tile  computer 
would  print  the  clcx;k  automatically.  Tliat  way  otlicT  pn)gnims 
could  he  running  at  tlie  .s;une  time. 

An  intemipt-driven  n.)utine  is  the  ;uxswer.  Sixt\'  times  a  sec- 
ond tiie  computer  aikes  time  out  to  read  tlie  keylrioard  and 
other  housekeeping  called  :ui  interrupt.  A  pn)gnuii  diat  nins 
at  these  interrupts  Ls  intemipt-<.lriven. 

The  cl(x;k  is  a  machine-Uuiguage  n)utine  lliat  reads  tlie 
Time  of  Day  Ckx;k  at  everv'  interrupt  antl  |'x)kes  it  on-.screen. 
Tlie  clock  on  the  screen  is  updated  automatically  60  times  a 
second. 

Tile  program  is  written  as  a  B.VSIC  loader.  Tlie  BASIC  loader 
has  m;iny  extra  features.  It  will,  in  fact,  make  eh;uiges  to  the 
niacliine-kuiguage  pn)gr;un.  customizing  llie  (;iock  to  fit  \our 
needs. 

First.  >ou  must  set  tlie  time.  Just  cli(X)se  Set  Time  tom  die 
menu.  "^XTien  asked  for  houi^  and  minutes,  t^pe  in  tlie  correct 
time  or  press  RFITRN  to  leave  it  tlie  s:une.  'Ilie  clock  will  not 
st:irt  until  tlie  time  is  set. 

Next,  you  can  move  tlie  clock  an  lund  the  .screen  or  cli;uige 
the  color.  The  best  way  to  find  out  what  \'ou  c;ut  do  is  to  tn' 
c\'er\tlTing on  tlie  menu.  You  can't  hurt  :ui\tliing. 

Ihe  ckx:k  defaiilLs  to  displa\'ing  AM/P.M,  hours,  minutes. 
seconds  :tnd  tentlis  of  secontLs.  A  hidden  cok)n  is  the  first  char- 
acter. ( It  is  hidden  because  it  1i;ls  ik  )  C(  )1(  >r  Ihe  c(  )lon  sep;iratL-s 
die  clock  fhjm  comm;uuls  lyyycd  on  llie  siuiie  line. )  M\  tl:Ls  will 
change  wlien  you  ch(K)se  Adjust  'l\pe  from  tlie  menu.  Keep 
pressing  the  same  Vx)  to  see  ;ill  r\-]X-s.  Hie  machine-language 
program  is  actually  being  ch;uiged  to  jump  o\er  certiiin  p;irts. 

For  example,  you  could  put  a  seconds  ;uul  tenths  of  seconds 
timer  on  your  o\\'n  game  scaen,  llie  time  could  Ix"  aisih-  set 
;md  read  frxjm  BASIC  :md  you  would  ne\er  ha\e  to  print  it  to 
the  screen  so  you  c"an  concentrate  on  die  rest  of  die  program. 

Four  functions  have  been  defined  to  make  re-ading  :ind  set- 
ting die  clock  eas>-.  In  addition,  the  variables  URS.  .VIIN.  SEC 
:uid  TEN  have  been  set  to  die  location  of  die  hour,  minute,  sec- 
ond and  tentlis  of  second  a'gi.sters.  'Ihus,  liour  =  F\R{Hlttl 
will  read  the  hours  and  FNR(.M1N )  will  read  tlie  minutes. 


EDS^UK 


Put  a  digital  clock  anywhere  on 
your  screen 

K5Ki-;  HRS.I"\S( hoLir )  :ind  I\)Kli  .MiiNM-NSC minute)  \\ill  set 
hours  and  minutes. 

Ttie  .\MP.\i  flag  Ls  in  die  hours  register  ;ind  it  defaulLs  to  A.\l 
wiien  hours  are  set.  PC)KI-  I  lliS,I-NP.\l(  0 )  will  set  tlie  P.M  flag 
without  disturbing  die  hours.  lX)Ki;  HKS.F.XRCHIiS)  will  set  it 
to  AM.  FNRP(())  will  rrad  AM  P.M  Hag  zerx)  it  .\M  128  if  P.M. 
lines  2(K)-24()  give  gtKKl  ex:imples  in  reatling  antl  setting  die 
clock. 

.\ny  time  the  hours  are  set  or  read,  die  ckxk  stops  (diougli 
it  keeps  time  intemiJly )  until  the  tenths  of  seconds  ;ire  set  or 
nrad.  lliis  is  .so  die  clock  won't  cli;uige  while  it  is  being  read. 

Tlie  bask;  loader  will  ;il.so  relocate  die  116  bytes  of  ma- 
chine language  to  run  lun'where  in  memor\'.  (;hange  die  st:irt 
address  (SA )  in  line  6()  and  die  loader  \\  ill  do  die  rest.  ( .\otice 
how  evcnthing  in  die  pn)gauii  is  referenced  b)'  SA. ).  Tlie 
Clock  docs  not  use  ;uiy  zero  page  k nations. 

If  >-oii  have  a  machine-language  monitor,  you  can  save  die 
clock  as  machine  kmguage  radier  tliiui  a  BASIC;  program.  Isc- 
SA  149152, SCOOO]  as  the  start  address  and  SA+  116 
[49268.SC075I  ;ls  die  end  addre-ss.  STS(SA+  104)  [49256]  wiU 
start  printing  die  ckx'k  to  screen, 

Ihe  athiintage  of  s;i\ing  the  cU)ck  ;ls  machine  language  is 
diat  it  c;m  dien  be  directly  loadeil  into  memor\'  widiout  die 
BASIC  loader.  Also,  an)'  adjusuiients  you  have  made  (color,  [X> 
sition)  will  stay  as  diey  ;ire  when  you  save  the  macliine  hun- 
guagc. 

The  Clock  uses  the  intemipt  routine  vectors  788-789.  S\'S 
(SA+104)  executes  a  routine  that  changes  these  \ectors, 
wliich  starts  die  pn)gnun  running.  Watch  out  tor  odier  j')ro- 
grams  diat  cliLuige  diese  \ectors  because  diat  will  upset  the 
clock.  For  example,  POK1-;  "88.52  is  a  common  way  to  disable 
the  RCN'STOP  ke>',  but  it  also  causes  die  clock  to  jum|')  all  over 
the  screen.  To  fix  it,  simply  restart  die  cUx^k,  S^'S(SA  +  1 04  ),  or 
press  STOPTlI-XrORl-;  to  get  it  out  of  die  wa\'. 

One  of  die  a-.il  g(XK.l  diings  alxnit  die  Commodore  64's 
Time  of  Day  Ckxk  Ls  diat  it  never  k)ses  time  e\en  when  the 
interrupts  are  aimed  oft^ — it  just  keeps  on  ticking. 

The  Program 

Lines 

10-15  QUculate  higli  ;uid  low  bytes  of  a  number 

Cjiiitiiua'tl  on  pg.  1 1~ 
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Supercharge  your  Commodore  for  just  $9.95 
with  LOADSTAR  ... 


TheC 


LOADSTAR  34  features 
these  Special  Issue  Programs: 


SD!  star  Wars 

Calendar  Maker 

Telephone  Lister 

Printer  Maze  128 

Inter  Melody 

Magic  Music  Box 

Basic  Macro  Processor 

The  Clock 

Instant  Load  and  Directory 

Program  Sentry 

Upgrading  from  64  to  1 28 

Beginner's  Guide  to  Burst  Mode 

Interfacing  Commodore's  User  Port 

Falcon  and  the  Enemy 

The  Moonlight  Zone 

Smokebusters  1 28 

Hi-Res  Helper 

Permutations 

Mirror 

...  PLUS  these  exclusive  LOADSTAR  features: 

A  Peek  at  Dispute?'s  Gazelle 
Pixel  Puzzler 


Each  issue  of  LOADSTAR  also  contains  music 
graphics,  educational  programs,  applications, 
programming  tips,  product  reviews ...  and  more! 


Magazine  On  Disk 


FkU^ATdse  cm  DIBK 


THE  COMPLETE  FAMILY  COMPUTER  MAGAZINE  ON  DISK 

LOADSTAR  eliminates  time-consuming  typing  and  keystroke  error.  Eadi  disk 
issue  contains  ail  ttie  programs  from  Commodore  Magazine  In  ready-to-run  form, 
as  If  you  typed  them  yourself. 


K 


In  addition,  LOADSTAR  subscribers  gei  programs  that  do  not  appear  in  the 
aper  magazines.  Each  Issue  contains  educational  programs,  useful  applications, 
.  jelpful  programming  tools,  lively  music,  colorful  animated  graphics,  and  games 
and  entertainment  the  whole  family  will  enjoy. 

LOADSTAR  programs  are  unprotected  for  your  convenience ...  an  added 
benefit  for  Commodore  users  who  want  to  get  the  most  from  their  0-64  or  0-1 28 
Investment. 

START  YOUR  SUBSCRIPTION  TODAY! 


D  $9.95  -  LOADSTAR  issue  34  featured  above 

D  $9.95  -  LOADSTAR  issue  featuring  programs  from 

Commodore  MICROCOIVIPUTERS     IVIo Yr 

□  $9.95  -  LOADSTAR  issue  featuring  programs  from 

Commodore  POWER/PLAY  Mo 


OR  SAVE  UP  TO  50% 
WHEN  YOU  SUBSCRIBE! 


D  $  39.95  -  6  Months 
D  $  69.95  -12  Months 
□  $119.95  -24  Months 


NAME 


Yr 


ADDRESS 

CITY 

STATE 

ZIP 

CARD  if 

EXP 

O  PAYMENT  ENCLOSED 

□  VISA 

□  MASTERCARD 

Q  AMERICAN  EXPRESS 


THESE  RATES  ALSO  APPLY  IN  CANADA  AND  MEXICO  (U.  S.  FUNDSONLY)     WRITE  FOR  OVERSEAS  RATES 

CALL  TOLL-FREE  FOR  IMMEDIATE  SHIPMENT  OF  CREDIT  CARD  ORDERS 

1-800-831-2694 

(INLOUISIANA  CALL  1-318-8SS-7247J 

To  order  by  mail  send  to:      LOADSTAR  /  P.O.  BOX  30008  /  SHREVEPORT,  LA  71 130-0008 


GAME  PROGRAMS 


BY  ROBERT  1„  I.YKINS 


SDI  Star  Wars 

for  the 
Commodore  128 


J.  he  President's  Strategic  Defense  Ini- 
tiative has  been  realized.  Tlie  fiiture  is 
now.  But  the  star  \\ars  tracking  computer 
Ls  do^n  for  repairs  and  tlie  backup  ha.s 
not  yet  been  installed.  An  ;ilami  sounds. 
Incoming  cnem\'  missiles  are  lie-aded  for 
major  U.S.  cities  and  you  must  m:inually 
aim  the  particle  beam  weapon  to  place 
energized  fields  Ln  the  missiles'  paths. 

The  program  is  listed  in  xs\o  p;irts.  Tlie 
first  is  tlie  main  BASIC  progriun  consist- 
ing of  some  fairly  lengtli)-  lines,  B.'\SIC  7.0 
allows  a  line  lengtli  of  160  characters, 
twice  as  many  as  BASIC  2.0  permits.  The 
lines  arc  numbered  witli  an  increment  of 
5,  allowing  you  to  utilize  the  automatic 
line  numbering  feature  built  into  the 
128.  Just  t\pe  ALTO  5  [llETURNj  and 
the  beginning  line  number  (100)  with 
the  first  program  line.  WTien  )-ou  hit  RE- 
TURN, the  next  line  number  is  displayed 
with  the  cursor  to  tlic  riglit  of  it,  ready 
for  you  to  t>pe  the  rest  of  die  line. 

*riie  second  part  of  the  program  is 
sprite  data.  I  could  have  put  it  in  DATA 
statements  in  the  BASIC  program,  but  it 
is  easier  to  enter  the  data  direcdy  into 
memor)'  using  the  128's  built-in  ma- 
chine-language monitor.  T)pe  MONI- 
TOR [RETURN]  or  hit  F8  (if  you  ha\e  not 
changed  the  functions  with  the  KE^' 
command)  to  enter  tlie  monitor.  Then 
C\pe  >  follo\\cd  b>'  tlie  hexadecim;il  ad- 
dress and  data  bnes  scpiirated  b)-  spaces. 

If  you  are  using  80  columns,  you 
should  type  the  whole  line  of  16  b\tes 
before  hitting  RETORN.  If  you  :ire  in  40 
columns,  you  should  t\pe  onh-  die  first 
eiglit  ;md  hit  ly^TUTlN.  'Ilien  add  8  to  tlie 
pre\ious  st;irtiiig  address  ;ind  enter  tlie 
next  eiglit  b^tes.  For  cx;imple, 

>  OEOO  00  00  00  00  00  00  00  00 

>  0E08  00  00  00  00  00  71-  00  01 

>  OEIO  80  CO  02  08  20  04  08  10 

>  0E18  04  08  10  08  00  08  09  E3 
When  you  finish,  t\  pe  X  to  return  to 

BASIC,  and  save  the  data  to  disk  widi  the 

BSAVE  command: 

BSAVE  -SWS'",BO.P3584  TO  P5968 
There  Ls  no  need  to  s;i\'e  tlie  whole 

;irea  of  sprite  memory  becau.se  die  data  is 

for  only  six  sprites.  The  arc"a  siived  takes 


only  two  blocks  on  disk  and  \^'ill  load  ftis- 
ter  (at  the  start  of  die  program)  than 
would  data  for  eiglit  sprites. 

Once  you  have  sa\ed  the  BASIC  pro- 
gram and  sprite  d:tt:i  to  disk,  you  are 
ready  to  play  die  game.  Be  sure  your 
joysuck  is  plugged  into  port  2.  Load  the 
program  if  it  is  not  stiJJ  in  memory  and 
run  it  It  should  load  the  sprite  data  fixim 
disk,  display  die  tide  screen,  and  play 
"The  Washington  Post  March"  while 
waiting  for  you  to  select  instrucdons  or 
one  of  three  starting  levels.  View  the 
instructions  and  pick  Cadet  if  you  are 
new  to  game  playing.  The  Ensign  level  is 
best  for  experienced  gamesters,  but  if 
you  are  bold  and  want  to  rack  up  points 
laster,  pick  Captain.  The  music  ends  and 
the  game  begins. 

Your  cities  and  defease  post  appear  on 
the  screen.  A  siren  sounds  and  your  gun- 
siglit  centers  on  die  screen.  Ele\en  mis- 
siles start  dieir  descent  at  a  speed  depen- 
dent upon  the  level  selected,  leaving 
trails  that  will  help  \'ou  determine  their 
trajcctorie.s.  Mo\'e  the  gunsiglit  to  a  point 
below  a  missile  ;uid  press  die  firebutton 
to  set  up  an  energized  field  >  ou  hope  die 
missile  wlU  enter  If  idl  goes  well,  there 
will  be  an  explosion,  the  missile  will  be 
destroyed,  ;uitl  iLS  tniil  will  disappear.  Do 
the  same  widi  the  other  missiles  to  finish 
the  \va\'e. 

You  begin  with  30  shots,  five  for  each 
cit\'  you  have  stiuiding.  There  is,  howe^'- 
er,  a  maximum  of  x\vo  energized  fields  at 
one  time.  If  you  fire  a  diird  shot  before 
die  first  two  fields  di.ssipate.  die  first  of 
the  two  ^^•ill  disapjie-.ir  to  :illow  a  field  for 
die  third  shot.  Tlierefore.  \ou  must  not 


shoot  too  often  or  the  missiles  will  not 
have  time  to  enter  a  field  before  the  field 
is  gone.  Your  shot  count  is  displaced 
prominendy  in  die  center  of  die  score- 
board at  die  top  of  the  screen. 

You  wiU  notice  immediately  that  the 
gunsight  floats  away  in  the  direction  you 
start  it  unless  you  redirect  it  with  another 
push  on  the  joystick  This  enables  it  to 
move  smoodily  around  the  screen  with 
occasioniil  joystick  manipulation.  It  will 
float  oflf-screen  if  you  aUow  it  but  will  re- 
turn on  the  opposite  side.  Do  not  press 
the  firebutton  when  the  gunsi^it  is  gone 
or  you  will  transfer  an  encigized  field  to 
its  location.  A  beep  will  sound  ;ind  )'ou 
won't  lose  a  shot 

You  ma)'  transfer  fields  to  screen  ex- 
tremities in  this  manner  and  \hc\  will 
continue  to  glow  for  the  time  they  have 
remaining,  Tliis  is  handy  if  you  need  a 
field  below  the  top  of  a  cit\',  a  zone  for- 
bidden to  a  new  shot.  Please  note  that  an 
enctgized  field  is  inefifectivc  if  it  touches 
the  defense  post.  The  speed  of  die  gun- 
sight  graduiJly  increases  widi  higlier  lev- 
els and  its  movement  may  be  hard  to 
control  widiout  practice, 

A  cit\'  is  devastated  by  a  good  hit  from 
a  missile.  One  such  hit  will  turn  the  cit>' 
red.  Protect  this  cit\'  at  all  costs  for  if  it  is 
hit  again  before  renovation  it  will  bum  to 
die  ground  and  be  lost  fore^'e^,  At  each 
increase  in  level,  the  red  city  (if  any) 
nearest  the  defense  post  is  renovated 
(changes  back  to  blue),  Tlie  level  in- 
creases even-  10.000  or  so  points,  begin- 
ning at  10,000  points  when  you  select 
Cadet  level,  20,000  points  at  Ensign  level, 
and  30,000  points  at  Captain  le\el.  The 
game  ends  when  all  the  cities  have 
burned  to  die  ground. 

You  recei\'e  100  points  multiplied  by 
die  play  level  tor  each  missile  destroyed. 
At  the  end  of  a  wave,  you  receive  a  bonus 
of  100  points  for  each  cit}'  left  standing 
;ind  10  jxJinLs  tor  luiy  shots  remaining. 
liich  hit  on  die  defense  post  will  h:d\e 
die  remaining  shots.  At  the  start  of  each 
wave  you  receive  five  shots  per  standing 
cir\'.  Near  die  end  of  the  game  you  won't 
ni;ike  a  lot  of  bonus  points  from  rem:un- 
ing  shots. 

Your  present  score  is  displayed  on  die 
left  of  die  scoreboard.  Iligli  score  is  dis- 
played on  die  right.  It  may  take  several 
games  tor  you  to  get  a  good  idea  of  your 
score  since  the  missile  angles  are  select- 
ed randomly.  Some  games  are  harder 
di;ui  odicrs.  Tlie  higliest  r\'e  scored  ;itter 
Cotitiniied  on  pg.  36 
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TO  THE  VICTOR  GO  THE  SPOILS 


GAME  PROGRAMS/SDI  STAR  WARS 


Coiitiinieit  fn/m  />i>.  ,i-i 

a  few  hours  of  practice  Ls  I  ^^.^  1 0. 

Game  paramctcni.  title  screen  ;uid  play 
screen  ;u"e  set  up  witJi  t!ie  suhnaitine  Ix-- 
ginning  at  line  330.  I  he  IlLVF  statement 
sends  tJie  prognun  to  line  iIO  it  tliere  is 
an  error.  The  most  likel\'  time  tliis  will 
happen  other  than  %-our  pressing  the 
RUN/STOP  ke\-  is  a  ftuied  attempt  at  load- 
ing the  sprite  data  with  tlie  Hl.OAD  com- 
m;uid,  probiibly  when  the  drive  is  not 
re-ady  or  the  SWS  file  cannot  be  found. 
Syntax  errors  in  the  prognun  could  al.so 
be  eauglit  by  tliis  TRAP  st;(tcment  if  you 
are  carele-ss  in  t\ping 

The  third  sprite  providc-s  the  informa- 
tion for  the  cities  ;md  is  transferred  to  B  S 
widi  the  SPRSA\'  command.  Six  cities  are 
placed  on  the  screen  with  tlie  Ux)p  in 
line  335  which  utilizes  the  CiSllAPH 
command  in  line  395.  An  offset  of  8() 
pLxcLs  in  the  horizontal  placement  is  add- 
c-d  to  cities  four  througli  six  so  diere  will 
be  room  for  the  defease  post. 

Tlic  SDl  title  LS  drawn  using  tlic  C;iR- 
CIJ;  command  repcnitedly  for  p;irts  of  tlie 
letters.  M;iny  shapes  are  possible  by  iilter- 
ing  the  \arious  piiranieters  of  tliLs  com- 
mand. Please  note  that  \'ariables  A-F  are 
used  tor  the  numbers  1-6  thn)ugliout  die 
program,  lliis  was  done  lo  s(X'ed  pro- 
gram actions  since  \;triables  in  program 
lines  are  acted  upon  faster  tlian  are  nu- 
merals. Keep  this  in  mind  as  you  look 
o\'er  the  program  and  it  will  help  you  un- 
derstand wliat  is  happening. 

Tlie  tide  screen  music  is  pkned  witliin 
die  DC)-Vi  HILE  loop  staning  in  line  555 
and  ending  in  line  5*^0.  This  loop  also 
checks  for  level  selection  and  flashes  the 
selection  numbers  on  and  off. 


priteData 


Tlie  main  game  kx)p  is  between  lities 
105  ;ind  145.  Widiin  tliis  kx>p  Ls  a  1X)R- 
NEXT  missile  l(K)p  diat  positk)as  sprite  5 
(!■')  at  tile  ftx)nt  of  c-acii  mi.ssile  trail  and 
drav\s  a  line  from  die  top  of  die  screen  to 
that  position.  Unc  1 10  checks  for  a  bump 
tx;tween  diis  sprite  and  energized  field 
one  (sprite  B).  Tliis  is  done  again  in  line 
1 20  after  .sprite  B  Ls  moved  to  die  spot  of 
die  second  field. 

The  BUMP(  1 )  function  is  ratlier  trick-)-. 
It  must  be  cletired  betv\een  bumps  by 
anotlier  reference  to  it  ;uitl  a  peri(x.i  of 
time  must  go  by  Ix'tbrc  it  is  checked 
again.  Sprite  to  sprite  collisions  are 
checked  rather  than  sprite  to  graphic 
screen  tlata  colliskins  ( Bl  '.MP(  2 ) )  so  diat 
stars  could  fill  die  sk"\'.  It  wouldn't  dt)  to 
have  an  energized  field  colliding  with  a 
star. 

The  WAJT  command  in  line  1 20  per- 
miLs  )ou  to  pause  the  game  b\'  depress- 
ing die  SHIFT  LOCK  kej-.  Press  it  again  to 
resiime  play. 

The  joystick  is  checked  twice  per  mis- 
sile kxip  ( lines  1 1 5  and  1 30 )  to  increiLse 
R-sponse.  lines  150- 185  detemiine  die 
direction  ;md  speed  of  sprite  1 ,  die  gun- 
sight.  If  the  fire  button  is  pres.sed  :uid  you 
ha^e  reni;uning  shots,  die  prognun  will 
jump  to  die  lire  n)utine  at  line  210.  Hiis 
njutine  draws  and  erases  a  fire  line  to  Uie 
guasiglit  position  and  places  sprite  2,  die 
energized  field,  at  this  spot. 

If  a  bump  is  detected  bet\\'een  a  mis- 
sile ;uid  an  energized  field,  die  explosion 
nmtine.  lines  195-205.  is  implemented, 
decrementing  die  missile  count  (Ci )  and 
incrementing  die  score  (SC).  Back  in  die 
main  kx)p,  if  the  missile  count  becomes 
zero  before  die  missiles  drop  to  the  limit 


(Y<  1 ),  die  prognun  jumps  to  die  t;Ul\' 
n)utine  at  line  2~5.  Odierwise,  the  mis- 
siles keep  dn)pping  until  diey  reiich  die 
limit  ;uid  jiosition  checks  are  made  to  see 
if  diey  ha\e  hit  cities  or  die  defease  post. 
If  so,  appn)priate  acdon  Ls  taken  in  lines 
230-  270,  before  die  tall}-. 

At  die  end  of  tally,  if  you  have  no  cides 
rem:iining,  )-ou  get  no  shots  for  anodier 
wa\'e  ;uid  it  is  Uius  detemiined  that  die 
game  Ls  over.  The  prognini  dien  jumps  to 
die  end  of  game  routine  at  line  420.  Iligli 
score  is  adjusted,  if  necessary;  a  sad  tunc 
LS  played  (line  -150),  and  you  arc  given 
die  option  of  playing  again  or  quitting 

A  lot  of  pUuining  is  required  to  make  a 
game  pn)graninied  in  BASIC  fast  enougli 
to  be  enjoyable.  Ise  of  variables  for  num- 
bers that  are  repeatedly  used  will  speed 
die  game,  as  will  the  use  of  a  period  in 
place  of  a  lone  zero.  Rather  than  check 
v\idiin  die  main  loop  for  each  pos.sibiIit\' 
of  die  joysdck  ( IF  JOY(  2 )  =  1 ).  it  is  bener 
to  check  for  its  being  true  (not  zero )  and 
then,  if  so,  to  use  die  ON'-CiOSLT3  com- 
m;ind  to  tiike  action.  Replacing  die  AND 
logiciJ  operator  widi  THH\-IF  will  ;il.so 
increase  speed,  An  example,  IF  A  =  B 
AND  C  =  D  THEN...  will  be  faster  if 
changed  to  IF  A  =  B  THEN  IF  C  =  D 
nil-N'..., 

1  ha\'e  tried  here  to  explain  die  logic  of 
die  giune  nidier  diiin  die  details  of  B,\SIC 
commands  and  statements.  The  user's 
manual  pnj\ides  detailed  descriptions  of 
die  use  of  BASIC  ~.0  kc\-words  and  other 
articles  h:i\e  dLsciLS,sed  them  time  ;ind 
agiiin.  An  examinadon  of  the  program 
:tfter  playing  it  a  few  times  should  gi\e 
you  a  g(xxl  idea  of  how  the  commands, 
statements  and  functions  work.  Q 


<:JE20 
«iE3«i 

eEae 
OEse 
0E6e 

0E7«) 

0Eee 
«E9ei 

eEA0 
«iEBe 
OEC* 
«iEDCi 
CiEEO 
0EFIS 
«FCi0 

0F20 
15F30 
0F40 
«iF50 
ii>F60 
0F7SJ 


00  00 

80  C0 

C3  03 

00  7F 

00  00 

bS'  E0 

5b  2b 

0C  BE 

30  00 

73  BF 

S0  FC 

D7  3C 

A0  03 

DA  db 

Cb  "JC 

7a  F7 

00  00 

00  00 

00  00 

00  00 

0F  ■i'i 

FF  FF 

EJ  FF 


00  00 

02  0S 

00  08 

00  00 

00  20 

86  D7 

D7  •9S 


9tl  7F 
C3  BF 
50  FF 
02  bij 
b£  CB 
B7  0A 
26  76 
00  00 
00  00 
10  00 
00  00 
F0  IF 
S0  bb 
FF  FF 


ED  BD  B7  Bb 


00  00 

20  04 

0d  08 

00  00 

82  0S 

■92  2D 

3B  t.9 

1  a  BC 
01  3F 
S0  FC 
Dd  3C 
C3  BF 
0C  26 
Id  68 
O  2<1 
0A  B5 

00  00 

00  00 

00  00 

00  00 

IS  FS 

01  FF 
9F  E7 
DB  t.D 


00  00 
08   10 

10  04 
00  00 

08  28 
BE  73 
EC  2D 
08  26 
AC  51 
C3  BF 
30  FC 
B7  3C 
E6  46 
93  88 
72  DB 
C7  5B 

00  00 

00  00 

00  00 

00  00 

3F  13 

FF  FF 
F9  FE 

ED  BD 


00  00  00 

04  03  10 
09  10  02 

00  00  00 

20  3E  14 

3B  t.9  EC 

BE  73  8b 

20  20  32 

00  FC  73 

B4  3C  S0 

C3  BF  A7 

80  FF  C3 
3£  lb  Sffc 
71  3B  8C 
9A  A6  21 
3D   53  F9 

00  00  00 

00  00  00 

00  00  00 

00  00  00 

FC  7E  IS 

81  E7  81 
00  7F  B7 

&7  '■•2  42 


00  00 

08  00 

08  20 

00  00 

BC  0C 

2b  D7 

D7  12 

03  00 

BF  84 

FC  C3 

3C  80 

BF  B7 

b8  47 

73  3D 

C7  76 

C2  E6 

00  00 

00  00 

00  00 

00  00 

7E  FE 

FF  FF 

E7  ED 

49  FF 


7F  00  01 

0S  09  E3 

01  S0  00 
00  00  00 

BE  30  0B 
98  95  AA 
0B  b9  E0 

00  00  00 

73  80  FC 
BF  34  3C 
FF  C3  BF 
F3  FF 
£E  4E 
3E  FD 
40  E9  08 
9F  3D  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 

24  7F  FF 
FF  87  E7 
DB  7E  DB 

FF  FF  FF 


FF 


8F 


Beftifc  iiping  ihb  program,  read  'How  to  Enier  Pfugrami"  and  "Hw  to  L'se  the  MugMinc 
Entn-  Pni(!ram."  The  B.\!il(:  pmgnnis  in  this  marine  arc  a^^iilablc  on  disk  ftura  l.oailsur. 
P.O.  Box  30ixr,  .Siirt-vtport,  lA  ''[  l.*(»XKJ-.  I -fUlU-fiJ  1-2694. 

BASIC  Program 

GOSUB    330'BDJV 

y=Y-U*3:C0L0R    A,B:FOR    L=.TO    10 

:IF    G(L)THEN    RX (L) =RX ( L) +RB (L) 

:MOVSPR    E,RA(L)+RX(L)+13,180-Y+4  0 

:DRAW,RA(L)  ,25    TO    RA  (L) -i-RX  (L)  , 

180-Y'UGLH 

IF    BUMP (A) =18    THEN    IF    G (L) THEN 

GOSUB    190'HNLC 

J=JOY(B) :MOVSPR    B, SX, SY : K=BOMP (A) 

:0N    J-(J    AND    128)GOSUB    150,155, 

160,165,170,175,180,185 

: IF  J  AND  128  THEN  IF  AR  THEN 

GOSUB  210'PSPA 

WAIT  211,A,A:IF  BUMP(A)AND  18 

THEN  IF  G(L)THEN  GOSUB  190'IVKG 

IF  S  THEN  SPRCOLOR  RND{A)*15+B, 

Contintted  on  pg.  38 


100 
105 


110 


115 


120 


125 
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t' The  follow- 
ing programs 
are  brought  to 
you  by  an  incredi- 
ble series  of  events. 


ming, 
diving, 
gymnas- 
tics and 
skeet 
shooting, 
just  to  name  a  few. 

There's  its  equally 
acclaimed  sequel,  Sum- 


\             ^BSMj            [ 

P^ 

Sumo  wrestling. 
A  sport  of  ritual  mid  tradition. 


Gymttastics.  A 

graceful  display  of  balance, 

poise  and  concentration. 


The  Bobsled. 

One  ivwng  nwve  and  il!s 

right  doim  the  tube. 


the  hot  dog  aerials.  And 
beg  for  mercy  in  the 
Biathlon.  And  coming 


H?: 


juMjE 

Over  30 
of  them, 
to  be 
specific. 

They're 
the  unf or- 
gettable 
events  of 
ourbest-sell- 
^/  ing  Games 
series. 

First,  World 
GamesT  Eight 
intemationS 
events  rang 
ing  from 
Sumo  wres- 
tling to  cliff  diving. 
Bull  riding  to  weight- 
lifting.  Even  skiing  the 
Chamonix  slalom. 
There's  our  enor- 
mously popular 
Summer  Games? 
Break  records  in 
track, 
swim- 


mer Games  11™  Go  for 
the  gold  in  rowing,  cy- 
cling, equestrian,  fenc- 
ing, the  high  jump,  the 
triple  jump,  kayaking, 
and  more. 
Finally 
there's 
the  icy 
challenges 
of  Winter 
GamesT  Waitll  you 
careen  the  tube  in  a  bob- 
sled. Fly  the  ski  jump.  Or 
choreograph 
an  entire  fig- 
ure skating 
routine.You'll 
flip  out  over 


Cliff  Oivittg.  In  Acapulco. 
evetyone  falls  for  it 


:  Ride  a  bucking  bull. 


next  summer,  our 
newest  Games 
program.  (Bet- 
ter get  ready  a 
to  hit  the 


IToSplaw 

Ap/ili-  II  i-  crmlJatikes.     I  To  A'  plawrr..  1  To  H  filmrrs.  I  to  8  p!<nv>f. 

Atari  ST.  C64/I2R,  IBM  Apple  I! &  cnmpati-  Apple  I!  &  mmpmi-  Amiga.  Apple  II  £  CBmp,::: 

&a,mpalibl€s.  Coming    bits.  Atari.  C64/128.  bks.  OU  ns.  IBM  iks.  Atari  ST.  C64/12S.  IBM 

forlhc  Apple  IIGS.  &  canlMlibhj.  iS:  mmpatihles.  Maniitosh. 


beach.) 

Now,  it 
may  seem  like  a 
lot  to  handle. 

But  don't  let 
world  events 
get  the  best 
of  you 


GAME  PROGRAMS/SDI  STAR  WARS 


Continued  from  pg.  36 

RND(A)*15+B:M0VSPR    B,PX,PY 

:ELSE  SPRITE  B, . : SX=344 ' NKMT 
130  J=JOY{B):ON  J-(J  AND  128)GOSUB 

150,155,160,165,170,175,180,185 

:IF  J  AND  128  THEN  IF  AR  THEN 

GOSUB  210'MDUQ 
135  NEXT: IF  y<A  THEN  230'EGHG 
140  IF  S  THEN  S=S-A:SPRITE  B,, 

RND(A) *15+B' IPLH 
145  IF  G  THEN  105:ELSE  275'DIMH 
150  MOVSPR  A, .#T:RETURN'CHVC 
155  MOVSPR  A,45jfT:RETURN'CIZI 
150  MOVSPR  A,90#T:RETURN'CIZE 
165  MOVSPR  A,135#T:RETURN'CJWJ 
170  MOVSPR  A,180#T:RETURN'CJWF 
175  MOVSPR  A,225#T:RETURN'CJWK 
180  MOVSPR  A,270#T:RETURN'CJWG 
185  MOVSPR  A,3I5#T:RETURN'CJWL 
190  IF  BUMP (A) =18  THEN  195 

:ELSE  RETURN 'GKKJ 
195  MOVSPR  B,-12,-9:SPRITE  B,,,,A,A 

:G(L)=.: SOUND  C, 3 000, 30 ,B, 300, 300 , 

C: COLOR  D,E:DRAW. ,RA(L) , 

25  TO  RA(L)+RX(L) ,180-Y:COLOR  D,8 

:SC=SC+100*U:G=G-A'RRQO 
200  COLOR  D,F:SPRITE  B,,,,.,. 

IMOVSPR  B,+12,+9'FVEE 
205  COLOR  A,8:CHAR  A, 13-LEN (STR$ ( SC) ) , 

A,STR$(SC) tCOLOR  A, B: RETURN ' IBNM 
210  IF  S  THEN  SX=PX:SY=PY'EKCC 
215  PX=RSPPOS (A, . ) : PY=RSPPOS (A, A) 

:IF  PX>20  THEN  IF  PX<320  THEN  IF 

PY<220  THEN  IF  PY>70  THEN  220 

:ELSE  SOUND  A , 55000 , E: RETURN ' TAAA 
220  SOUND  6,30000,10, . ,9999, 999, C 

•.DRAW, 159, 180  TO  PX-12,PY-40 

:MOVSPR  B,PX,PY:S=C:SPRITE  B,A 

:AR=AR-A:DRAW. ,159,180  TO  PX-12, 

PY-40'OIXC 
225  CHAR  A,18,A,STR$(AR)+"  " 

: RETURN 'EMLI 
230  FOR  L=.TO  10:IF  G(L)=.THEN 

270'GNWF 
235  FOR  M=A  TO  F:IF  RA (L) +RX (L) >=XC (M) 

THEN  IF  RA(L) +RX (L) <=XC(M)+24 

THEN  IF  E{M)<>9  THEN 

E{M) =E(M) +B'UAJD 
240  IF  E(M)=B  THEN  E(M)=C 

rSOUND  A, 9999, 70, B, 999, 999,. 

:FOR  K=A  TO  20:SPRITE  C, , ,A 

:FOR  N=A  TO  C:MOVSPR  C, XC (M) +22+N, 

229:NEXT:NEXT:MOVSPR  C,.,. 

:COLOR  A,9:GSHAPE  B$,XC(M), 

179'UPKI 
245  IF  E{M)=9  THEN  255'DIFI 
250  IF  E(M)=E  THEN  MOVSPR  D,XC(M)+24, 

229:SOUND  C, 5000 , 150 , A, 50 , 30 ,C 

:FOR  K=A  TO  85:SPRITE  D,A, 

RND(A)*15+B,RND(.) *B:NEXT 

tSPRITE  D,.:GSHAPE  C$,XC(M),179 

:E(M) =9'TMEH 


265 

270 
275 


280 

285 

290 


295 

300 
305 


255  NEXT'BAEG 

260  IF  AR  THEN  IF  RA (L) +RX (L) <184 
THEN  IF  RA{L)+RX(L)>136  THEN 
AR=INT(AR/B) :SOUND  A, 400 , 99 , , , ,C 
:F0R  K=.T0  99:SPRITE  F,A, 
RND(A)*16+A:NEXT:C0L0R  A,B 
:GOSUB  225:SPRITE  F,A,11'AIXM 
DRAW. ,RA(L) ,25  TO  RA(L)+RX(L), 
180-Y' EASP 
NEXT'BAED 

IF  AR  THEN  SOUND  A, 55000-1000 *AR,C 
:AR=AR~A:SC=SC+10:GOSUB  225 
:GOSUB  205:GOTO  275'MRUA 
SPRITE  B,.:SPRITE  F,.:FOR  L=A  TO  F 
:GOSUB  400:IF  E(L)=9  THEN  295'JBBP 
MOVSPR  C,XC(L)+24,229:SPRITE  C,,,. 
:SC=SC+100: SOUND  A, 10000+L*500 , 20 
:SOUND  B,12000+L*500,20'LJYE 
GOSUB  205:AR=AR+E:GOSUB  225 
:COLOR  A,15-B*E(L) :GSHAPE  B$, 
XC(L) ,179:MOVSPR  C,.,.'JSUU 
NEXT'BAEK 

IF  SC<U*10000  THEN  325'ELHC 
FOR  L=A  TO  50:SOUND  C, 
RND(A) *4  0000+999,A:G=RND(A)*16+A 
:COLOR  A,G:COLOR  D,G 
:CHAR  A,13-LEN (STR$(SC) ) ,A, 
STR$(SC) :NEXT:GOSUB  205 
: GOSUB  225'VNGF 

U=U+A:FOR  L=D  TO  F:IF  E(L)AND 
E(L)<9  THEN  E(L)=.:GOSUB  405 
:GSHAPE  B5,XC(L) ,179:L=F 
:GOTO  320'OVOR 
IF  E(7-L)AND  E(7-L)<9  THEN 
E(7-L)=. :GOSUB  405:GSHAPE  B$, 
XCC7-L) ,179:L=F:G0T0  320'NRVU 
NEXT'BAEY 

IF  AR  THEN  GOSUB  355:GOTO  105 
:ELSE  420'FNLJ 

TRAP  410:BLOAD"SWS":COLOR. ,12 
:GRAPHIC  1,1:SPRSAV  3,B$:A=1:B=2 
:C=3:D=4:E=5:F=6:U=RND(-TI) ' OTAV 
COLOR  A,15:C0L0R  D,E:K=. 
:FOR  L=A  TO  F:MOVSPR  L,.#. 
:MOVSPR  L,L*50,.:IF  L>C  THEN  K=80 
:GOSUB  395:NEXT:ELSE  GOSUB  395 
:NEXT'SWSC 

U=I:SSHAPE  C$,30,30,54,54 
:FOR  L=A  TO  50:GOSUB  400:NEXT 
:AR=30:COLOR  A,F:CHAR  A,.,.," 
[CMDR  +4,SHFT  POUND, CMDR  U8 , 
CMDR  *,CMDR  +4,SHFT  POUND, CMDR 
*,CMDR  +4,SHFT  POUND, CMDR 
*,CMDR  +4] "'KSFU 
A,., B," [CMDR  +4, CMDR  *, 
U8,SHFT  POUND, CMDR  +4, CMDR  *, 
U2,SHFT  POUND, CMDR  +4, CMDR  *, 
U8,SHFT  POUND, CMDR  +4]", A 
L=A  TO  F:E(L) =. :NEXT:SC=. 
:SPRITE  C,A, 8, ,.,.,.' IMGW 
350  CHAR  A,.,A,"[SHFT  V4, S PACES ]0 
[SHFT  V4]  30  [SHFT  V4, SPACES] 0 

Continued  on  pg.  42 


310 


315 


320 
325 

330 


335 


340 


345 


CMDR 
CMDR 
CHAR 
CMDR 
CMDR 
CMDR 
rFOR 


U2, 
U8, 
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C-64- 


COMPUTER 


INCLUDES 
GEOS 


803-C 

COMMODORE 

S139 


MONOCROME 

MONITOR 


C-64-C 

^68 


*WITH  PURCHASE  OF  DISK  DRIVE 


RINTERS 


.IL 


r  ■  in  <  1  ■  t  H  t 


^198 


LETTER  QUALITY  DAISYWHEEL 


lyiONITORS 


RETAIL  S299 


FULL  COLOR 


OPEN  7  DAYS 
A  WEEKS, 
EVENINGS 


PRO-TECH-TRONICS 

^  QUICK^DEU  VERY^ — 


1-800-345-5080 


6860  Shingle  Crk.  Pkwy.  #201 
Minneapolis,  MN  55430 
(612)  560-6603 


C-64  COMPUTER 


*WITH  PURCHASE  OF  SPECIALLY 
PRICED  SOFTWARE  PACKAGE 


FACTORY  SERVICEO 
FULL  WARRANTY 


FREE  HOME  TRIAL 


PRINTER 


PRINTER 


SEIKOSHA 


NEAR  LETTER  QUALITY 

•  100  CPS  Draft  Mode 

•  20  CPS  NEAR  LETTER  QUALITY  MODE 

•  Commodore  Ready 


COMMODORE   READY 


FREE  TRIAL  PERIOD 


NEAR  LETTER  QUALITY 


120  CPS  Draft 
30  CPS  NEAR 
LETTER  QUALITY 
Includes  Both... 
-TRACTOR  FEED 
-FRICTION 


CALL  TODAY 

OPEN  7  DAYS 
A  WEEK  & 
EVENINGS 


1-800-345-5080 


i  I  k  f  i  r 
J  I T  i  I  I  r  1  I 


AMIGA 


*WITH  PURCHASE 
OF  1571  DISK  DRIVE 


FACTORY  SERVICED 
FULL  WARRANTY 


FREE  TRIAL  PERIOD 


^MONITOR  $50  ADDITIONAL 


DISK  DRIVE 


1541 
COMMODORE 

$148 


MODEMS 


300 
BAUD 


1200  BAUD 

HAYES 

COMPATIBLE 


POWER  SUPPLY    JOYSTICKS        CABLE  TV        RADAR  DETECTOR 


C-64 


JJy  j^f  •  JERROLD 

CONVERTERS/    '^^L.^.m, 
DECODERS         ♦   'HAMLIN 


^QUICK^DELIVERY^ 

MB  ^^  U^J  c.o.D. 


SCHOOL  P.O.'S  ACCEPTED 


PRO-TECH-TRONICS 

6860  Shingle  Creek  Parkway  #201 

Minneapolis,  MN  55430 

(612)  560-6603 


GAME  PROGRAMS/SDI  STAR  WARS 


Continued  from  pg.  3S 

[SHPT    V41":IF    H    THEN    COLOR    A,D 

:CHAR    A,35-LEN(STR$(H) ) ,A, 

STR$ (H) ' JCYG 
355  T=B  +  INT(U/C)  : SPRITE  A, A, 14 ,.,.,.,  . 

:SPRITE  B,.,,A,.,.,A:S=.:G=11'ISKV 
360  MOVSPR  F,160,229:SPRITE  F,A,11,,A, 

.,.:PRINT  CHR$(7);:IF  RA(.)=.THEN 

475'HPDP 
365  FOR  L=.TO  10 : RX (L) = . ' ELTN 
370  RA(L)=INT(RND(A) *318+A) 

:RB(L)=INT(RND(A) * (9*U) ) 'KEPR 
375  IF  1NT(RND(A) *2)THEN 

RB(L)=-RB(L) 'HQIR 
380  IF  RA(L)+RB(L) *60/U<5  OR 

RA(L)+RB(L)*60/U>314  THEN  370'LIJT 
385  G(L)=A:NEXT'CGVM 
390  COLOR  D,8:M0VSPR  A,.#. 

:MOVSPR  A,171,140:SPRITE  A, A, 14 

:SOUMD  A, 25000, 60, . ,6000,999 

jSLEEP  ArCOLOR  D,F:SPRITE  E,A,12 

:Y=155: RETURN 'KWKD 
395  SOUND  A, 35000, 20, 3,5000, 5000,. 

:XC(L)=(L-.5)*36+K:GSHAPE  B$, 

XC(L) ,179: RETURN 'HCDB 

400  COLOR  A,B+14*INT(RND(A>*B) 

:DRAW,RND(A) *320 , RND ( A) *150+25 

: RETURN 'NEEM 
405  COLOR  A,15:S0UND  A, 35000 , 20, B, 

5000,5000,. : RETURN 'DFAL 
410  GRAPHIC:  IF  ERO30  THEN  PRINT" 

[CLEAR, DOWN, WHITE] FIX  AND  HIT  A 

KEY. [D0WN2] "ERR$(ER) :GET  KEY  A$ 

:ELSE  END'LOQP 
415  RUN'BAME 
420  GRAPHIC  C,.:SOUND  8,600,220 

:SOUND  C, 8000, 220, A, ,30, C 

:C0LOR  D,C:FOR  L=l  TO  150 

:COLOR.,RND(A) *16+A:V0L  15-L/10 

:NEXT:COLOR. ,12:GRAPHIC  A,. 

: COLOR  D,7'SVVD 
425  MOVSPR  A,.#.:COLOR  A,D 

:IF  SOH  THEN  H  =  SC:CHAR  A, 

35-LEN(STR$(H)) ,A,STR$CH) 'LICU 
430  CHAR  A,25,C," [CMDR  *,SPACE10, 

SHFT  POUND] ":COLOR  A, 8 

:CHAR  A,C,C,"[CMDR  *,SPACE10, 

SHFT  POUND] "'DSON 
435  CHAR  A,D,C,"YOUR  SCORE", A 

iCOLOR  A,D:CHAR  A,26,C, 

"HIGH  SCORE",A'DWBT 
440  IF  RA(.)=.THEN  RETURN 'EGCF 
445  VOL  4:G0SUB  475:RESTORE 

: TEMPO  9'EJCL 
450  READ  D$:IF  D$<>"*"THEN  PLAY  D$ 

:GOTO  450'HMYK 
455  COLOR  A,14:CHAR  A,C,19, 

"  TO  PLAY  AGAIN,  PRESS  FIRE 

BUTTON  ",A'COKV 
460  COLOR  A,11:CHAR  A, 7, 21,"  TO  QUIT, 

PRESS  SPACE  BAR  ",A'COEP 
465  GET  A$:IF  A$="  "THEN  GRAPHIC. 


470 

475 

480 

485 

490 

495 

500 

505 
510 

515 

520 

525 

530 

540 
545 


550 

555 
560 
565 

570 


575 
580 


582 

585 
590 


:END'GHKO 

IF  JOY (B) AND  128  THEN  SCNCLR 

:GOSUB  335:GOTO  105 

:ELSE  GOTO  465'JSIO 

MOVSPR  A,171,150:IF  RA(.)=.THEN 

COLOR  A,D:GOSUB  430'GYGT 

COLOR  A, 8 : CIRCLE, 50, 70, 50, F,, ,45, 

60 : CIRCLE, 4 9, 70, 50, F, , ,45,60'DSYR 

CIRCLE, 84, 50,E,10, , , ,60 

: CIRCLE, 15, 90, E, 10, ,, ,60'CKRT 

CIRCLE,57,41,30,E, , ,350,60 

:CIRCLE,4  2,99,30,E,, ,350,60'CQDQ 


90,60 

,90,60'CQHV 
12,60 

,348,60'CRKI 
,  90,60 'BUKI 
,60 
, ,60'CMPI 


CIRCLE, 110, 65, 35, E,, 

:CIRCLE,145,65,25,E, 

CIRCLE, 12  8,42,15,0,  , 

:CIRCLE, 128,88,15,0, 

CIRCLE, 175,60,20,0,, 

CIRCLE, 175, 40, 10, C,, 

:CIRCLE, 175,80, 10, C, 

COLOR  A,D:CHAR,28,8,"S" 

: CHAR, 30, 7, "T": CHAR, 32, F," A" 

:CHAR,34,E,"R"'FGYQ 

CHAR, 29 , 10 , "W" :CHAR, 31 , 9 , "A" 

: CHAR , 3  3 , 8 , " R" : CHAR , 3  5 , 7 , " S " ' EDLL 

SOUND  C,40000, 30, ,10000, 1000, C 

: COLOR  A,11:CIRCLE,200,145,180,50, 

270,32, ,E'DFXT 

COLOR  A,B:DRAW,245,33  TO  195,75 

:COLOR  A,8:CHAR  A, 12,16, 

"ROBERT  L.  LYKINS"'FFYQ 

IF  RA(.)THEN  RETURN 

:ELSE  RA( .)=1'FMNI 

COLOR  A,14:CHAR  A, 8, 18,"  CHOOSE 

:[SPACE2]0  INSTRUCTIONS" 

:CHAR  A,18,I9,"- [SPACE2]-" 

:CIRCLE,155,155,C,B 

:CIRCLE,165,155,C,B,315,50 

:DRAW,162,153  TO  162,157'HUPK 

COLOR  A,14:CHAR  A, .,20,"  LEVEL 

;[SPACE2]1  CADET[SPACE3] 2  ENSIGN 

[SPACES] 3  CAPTAIN" 'CMWR 

RESTORE  700: TEMPO  15 

:D0  WHILE  A$=""'FKEO 

GET  A$:READ  D$:IF  D$="*"THEN 

RESTORE  700:GOTO  560'HPVM 

PLAY  D$:CHAR  A,18,18,"0",N 

:CHAR  A,9,20,"1",N:CHAR  A, 19, 20, 

"2",N:CHAR  A,30,20,"3",N'FVYY 

N=ABS  (N-A)  :LOOP:I=VAL{A$) 

:IF  I>C  THEN  555:ELSE  IF  I=.THEN 

530'NYBU 

SCNCLR:GOTO  335'CETN 

D$="THE  STAR  WARS  DEFENSE 

TRACKING  COMPUTER  IS  DOWN  SO  YOU 

MUST  AIM  THE  PARTICLE  BEAM  TO 

DESTROY  THE  INCOMING 

MISSILES. "'BCYO 

Dl$="  LOSE  ALL  YOUR  CITIES  AND 

IT'S  OVER. "'EDIT 

A$=" [SPACE40] " :D$=A$+D$+D1$ 'EMLW 

COLOR    A,16:F0R    L=A    TO    152 

:CHAR   A, . ,18,MID$(D$,L,40) 
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GAME  PROGRAMS/SDI  STAR  WARS 


:FOR  M=A  TO  75:NEXT:NEXT'LJQW 
595  SLEEP  B:CHAR  A,. ,18, 

"THIS  IS  YOUR  FLOATING  GUN  SIGHT. 

[SPACES] "'CKMB 
600  SOUND  C, 15000, 30:COLOR  A,B 

:CHAR  A,23,13,"<-":SLEEP  B 

:CHAR   A,23,13," [SPACE2]":SLEEP    A 

:CHAR   A,23,13,"<-":SLEEP   B 

:CHAR  A,23,13," [SPACE2] " 

: COLOR  A,16'K0XX 
605  SLEEP  B:CHAR  A, .,18, 

"THIS  IS  AN  INCOMING  MISSILE 

TRAIL. [SPACE6] "'CKFS 
610  SOUND  C, 15000, 30:COLOR  A,B 

:CHAR  A,25,E,"->":SLEEP  B 

:CHAR  A,25,E," [SPACE2] ":SLEEP  A 

:CHAR  A,25,E,"->":SLEEP  B 

:CHAR  A,25,E," [SPACE2] " 

: COLOR  A,16'KKQX 
615  SLEEP  B:CHAR  A, .,18, 

"THIS  IS  ONE  OF  SIX  CITIES. 

PROTECT  THEM."'CKIU 
620  SOUND  G, 15000, 30:COLOR  A,B 

:CHAR  A, .,23,"->":SLEEP  B 

:CHAR    A, . ,23," [SPACE2] ":SLEEP    A 

:CHAR    A, .,23,"->":SLEEP    B 

:CHAR  A, . ,23," [SPACE2] " 

:COLOR  A,16'KKQy 
625  SLEEP  B:CHAR  A,. ,18, 

"THIS  IS  THE  DEFENSE  POST  YOU 

SHOOT  FROM."'CKMV 
630  SOUND  C, 15000, 30:COLOR  A,B 

:CHAR  A,15,23,"->":SLEEP  B 

:CHAR    A,15,23," [SPACE2]":SLEEP    A 

:CHAR   A,15,23,"->":SLEEP    B 

:CHAR  A,15,23," [SPACE21  " 

:COLOR  A,16'K0JB 
635  D$="PLACE  SIGHT  BELOW  MISSILE. 

PRESS  FIRE  BUTTON.  ALLOW  MISSILE 

TO  HIT  A  RESULTING  ENERGIZED 

FIELD  TO  DESTROY  IT."'BCRN 
637  Dl$="  MAXIMUM  OF  TWO  FIELDS  AT 

ONCE.  GET  'EM!!!"'BDCV 
640  D$=A$+D$+D1$'DJLH 
645  SLEEP  B:POR  L=A  TO  152 

jCHAR  A,. ,18,MID${D$,L,40) 

:FOR  M=A  TO  75 : NEXT :NEXT ' LHFX 
650  SLEEP  B:CHAR  A, . , 18 , A$ : A$="" 

:GOTO  545'ETPL 
655  DATA  V103H .DV304Q$BV2RO3HFV3O4QAF 

'BDOR 
660  DATA  V103H.DV304HDV2QR03HFV305QD' 

BCLN 
665  DATA  V103H .DV304$BV2QRO3HGV3O5QD ' 

BCYS 
670  DATA  V103H.DV304.AV2QRHF'BTVM 
675  DATA  V103H.EV2QRV304SGAI$BV203H$B 

V305QDIC04$B'BP0W 
680  DATA  V103H.FV304AV2QR04CV305QF'BA 

QP 
685  DATA  V103H.#CV2QRV304SEFIGV203HGV 


304QAA'BJHW 
690  DATA  V103H.DV2.FV304.D'BRQN 
695  DATA*'BBWO 
700  DATA  V1T702QDV2T705DV3T706DV102I# 

DV205#DV306#DV102Q.EV20  5.EV306.E' 

BKGQ 
705  DATA  V102EV205EV306EV102I$EV205$E 

V306$EV102QDV205DV306DV102I#CV205 

#CV306#C'BTUX 
710  DATA  V102QDV205DV306DV102I#DV205# 

DV306#DV102Q.EV205.EV306.E'BEUQ 
715  DATA  V102EV205EV306EV102I$EV205$E 

V306$EVlO2QDV205DV306DVlO2l#CV20  5 

#CV306#C'BTUY 
720  DATA  V102QDV205DV306DV102I#DV205# 

DV306#DV102QEV205EV306EV102I$EV20 

5$EV306$E'BUXV 
725  DATA  V102QDV205DV306DV102I#CV205# 

CV306#CV102QCV205CV306CV101IBV204 

BV305B'BRAA 
730  DATA  V101QAV204AV305AV1IRV2RV3RV1 

02QDV205DV306DV1Q.RV2.RV3.R'BFCT 
735  DATA  V305IDD#CDM ' BLMM 
740  DATA  V102ICV205CV3EV1RV2RV3RV103A 

V204CV3EV205Q.CV3.EV103IARA'BFYU 
745  DATA  02DV205CV3 #FRV2RV1R03AV204CV 

3D05Q.#FV2.CV103IARA'BXVW 
750  DATA  02GV204BV305ARV2RV1R03GV2BV3 

04D05Q . GV204 . BV103I ORG ' BAVT 
755  DATA  V204QBV305GV102IGR03GV204DV3 

O5GGV2O4DVl03GRV2RV3O5#FEV2O4DVlO 

3G'BNED 
760  DATA  03frFV205CV3DRV2RVlR04CV2O5CV 

3#DEV2CV103DRV2RV3R05$EV2CVi04C'B 

JCW 
765  DATA  V205QCV3DV103I #FR04CV205CV3D 

DV2CV103DRV205CV3DDV2CV104C ' BFFC 
770  DATA  03GV204BV305DRV2RV1R03BV204B 

V305#DEV204BV103DRV2RV3R05$EV204B 

V103B'BQWA 
775  DATA  V204QBV305DV103IGRBV204DV305 

DDV2RV1DRV2RV305#CDV204DV103B'BH0D 
780  DATA#CV204AV305ERV2RV1R03GV2AV3RV 

204HAV30  5Q.EV10  3I#CRGCV305#F'BHDY 
785  DATA  RV2RVlR03#FV2AV3RV204HAV305Q 

.#FV10  3ICR#F02BV305A'BXBC 
790  DATA  RV2RV1R03DV2GV3R05Q.GV204,DV 

102IBR03D'BMFU 
795  DATA  V305QGV204DV102I $BR03DV2GV30 

5GGV2RV102$BRV2RV305#FGV203GV1D'B 

JCF 
800  DATA  V305Q#FV2RV102IAR03DV204#FV3 

05#F#FV204#FV102ARV204GV305G#GV20 

4#GV103D'BTCU 
805  DATA  V305QAV2O4AV1O2IAR03EV204AV3 

05AAV204AV102ARV204BV305B06#CV205 

#CV103E'BSIA 
810  DATA  DV205DV306DRV2RV1R02AV205GV3 

06#CDV205#FV102DRV2RV3R06#CV205GV 

102A'BPMU 
815  DATA  HDV205#FV306DQRM'BQWM      _ 
320  DATA*'BBWE  '■'SBB) 
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Fatmtus  ISniiomil  Sirand 


NLQ  180 

i-Speed  Printer  Sale 


1 80  CPS  •  Near  Letter  Quality  • 
Lifetime  Warranty       Beiow 

Wholesale 
Cost  Prices!!! 

Sal 


I©      H        J^     ^^      List  $499.95 


Fantastic 
Price 


60%  OFF  LIST  PRICE 


*t> 


Lifetime  Warranty* 


NLQ-180  Premium  Quality  Printer 

Near  Letter  Quality  Selectable  From  Front 

Panel  Controls  •  High  Speed  Dot  Matrix* 

Letter  Quality  Modes  •  8K  Buffer  frees  up 

computer  4-times  faster  •  Pica,  Elite, 

Italics,  Condensed  •  Super  Graphics  • 

Business  or  Personal  •  Tractor/Friction  • 


^^0%  15  Day  Free  Trial  •  Lifetime  Warranty  on 


Print  Head*  •  6  Month  Immediate 
Replacement  Warranty  • 

NLQ-180  Print  Samples 


Th is    is 

ary    exaap 

le    of    ITALICS 

t=.n  n  sl 

n  cz  e-cd 

Bold-face 

Condensed  Text 

Double-stri  ke 

example 

of   Near 

Letter   Quality 

-  IBM  -  COAAMODORE  -EPSON  —  NLQ  1 80  SPECIFICATIONS 

Print  Buffer 

8K  bytes  utility  buffer 

Printing  Direction 

Text  Mode  —  Bi-directional 

Graphic  Mode  —  Uni-directional 

Interface 

Centronics  type  parallel  (8-bit) 


Paper 

Plain  paper,  Roll  paper,  Single  sheet 

Fanfold,  Multipart  paper:  max.  3  sheets 

(original  plus  2  copies) 

Character  Fonts 

Pica,  Elite,  Italics,  Condensed 


Printing  Method 

Impact  dot  matrix 

Printing  Speed 

160-180  CPS  at  standard  character  printing 

Printing  Characters 

Standard  9  x  9  dot  matrix 
NLQ  12  X  18  dot  matrix  (33cps) 

Character  size:  2. 12  x  2.8  mm  (standard) 
Character  sets:  Full  ASCII  character  set  (96) 
32  International  characters 


INTIRFACES 


APPLE  —  ATARI  —    ETC 

Ink  Ribbon  Cartridge 

Ribbon  Life:  3  million  characters/ cartridge 
Physical  Dimensions 
Size;  15"xl2"x5" 
Weight:  12.7  lbs. 
Maximum  Number  of  Characters 

Standard:  lOcpi         80cpl 

Standard  enlarged;  5  cpi         40  cpl 

Elite:  12  cpi         96  cpl 

Elite  enlarged:  6  cpi        48  cpl 

Condensed:  17  cpi       132  cpl 

Condensed  enlarged:  8.5  cpi         66  cpl 

Condensed  elite:  20  cpi        160  cpl 


Atari  $39.95      Apple  $49.95      Commodore  $29.95      IBM  $49.95      Laser  $19.95 


AckJ  $10.00  for  shipping,  handling,  and  insurance.  Illinois  residents  pimise  add 
5'/.%  soles  tax.  Add  20.00  for  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  be  in  U.S.  Dollors,  WE  CKD  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Cashier  Chock,  Money  Order  or 
Personal  Check.  Allow  1 4  days  for  delivery.  2  to  7  days  (or  phone  orders,  1  day 
express  mail.  Prices  &  Availability  subject  to  change  without  notice, 

VIS*  —  MASTtK  CABD  —  C.O.D. C.O.D.  on  phone  ordars  only. 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

3  1 2/382-5244  to 


•  Famous  jC*fational  Brand  • 

15  Day  Free  Trial-Satisfaction  or  Your  Money  Back 
90  Day  Immediate  Replacement  Warranty 


is^ 


^'^^ 


sofr 


'^ 


80  Column  Printer  •  ZV2"  Letter  Size 


List  $199. 00 

Now  you  can  have  a  full  fledged  8  '/i "  letter  size  80  column  printer  for  less  than  the  cost  of  a  large  box  of 
paper.  This  printer  uses  advanced  dot  matrix,  heat  transfer  technology  to  print  uppier  and  lower  case  (with 
true  lower  descenders),  underline,  enlarged,  all  points  addressable  graphics  plus  More.  Print  out  pictures, 

program  listings,  wordprocessing  pages,  graphics  and  more.  Perfect  for  the  homeowner  or  student  and 

definitely  affordable.  List  $199.00  Sale  $39.95 


Commodore 


IBM 


® 


Atari 


,® 


Apple 


® 


This  printer  was  made  by  Canon®  for  the  IBM  PC  and  PCjr.  The  Big  Blue  printer  comes  ready  to  hook  up  to  the  serial  port 
of  the  IBM®PC  jr.  Plus  with  low  cost  adapter  cables  you  can  connect  the  Big  Blue  printer  to  the  Apple®  n.Ile.IIc,  Apple 
Compatibles,  Atari®,  Commodore®  64  ,128.  SX-64.  Vic  20,  Plus  4,  IBM®PC,  IBM®XT,  IBM®  AT,  IBM  Compatibles  , 
TI-99,  Tandy  1000,  plus  many  more. 

Intalllgsnt  Commodor*®  Interface — Connects  Big  Blue  to  the  printer  port  of  the  C-64  and  128.  Print  graphics,  us 

Printshop,  word  processors  and  more List  S^9.95  Sale  iH.*! 

Intelligent  Atari®   Interface — Connects  the  Big  Blue  to  Atori®  computers  (except   1200).   Print  Atari  graphics, 

Printshop,  word  processors,  and  more List  $49.95  Sale  »H.9S 

RS-232  Adaptor— Adapts  Big  Blue  for  IBM®  PC,  AT,  XT,  PCir.  &  Apple®  II  series  RS-232  port List  $19.95  Sale  »  9.9S 

LaieriaS,  Apple  ll®c  Interface  .  .  .  List  $24.95  Sale  »1  J.«      Printer  Stand List  $24.95  Sale  »14.95 

Paper  (2  Rolls) List  $19.95  Sale  »  S.«     Single  Sheet  Poper  (Qty  500) List  S29.95  Sale  $12.9S 

IBM.  Apffl*.  Concyi.  Commpdw,  Atari  Of  trod^fi-affct  o*  Inf  fnolio*^!  ftu»ln»f  Mochlnat.  Appla  Computet .  Cof^Ort  Inc.  OyTVTHxfef*  »«j,lnM>  Mochin*,,  Alaf  i  tftc .  Btp»c<lv*tr 


Add  $7.50  lor  shipping.  hondDng  and  insurance.  Illinoi)  r*t)d«nlt 
pleose  odd  6'/>%  lax.  Add  $IS.0O  for  CANADA.  PUERTO  RICO. 
HAWAII.  ALASKA  and  APO-FPO  ordsri.  All  ord«fj  muit  b«  In  U.S. 
dollars.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT 
CANADA.  EncloM  Caililar  Chxk,  Monay  Order  or  Parsonal  Check. 
Allow  U  days  for  delivery,  2  to  7  days  for  phone  orders,  I  day  express 
mail  I  Prices  £  Availability  subject  lo  change  without  notice. 
VISA  —  MASTER  CARD  —  COD.  C.O.D.  on  phone  orders  only 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

312/382-5244  to  order 


E  R  P  R  I 

'Tlie  Computer  Experts" 

22292  N.  Pepper  Rd.,  Barrington  IL  60010 


COMMODORE  64c 


Includes  the  GEOS  program. 

SALE  $159,95 


List  S299 


BLUE  CHIP 
DISK  DRIVE 


sALE$i59,95 


List  $249 


All  our  products  carry  a  minimum  90  day  warronty 

from  the  date  of  purchase.  If  problems  arise,  simply 

send  your  product  to  us  via  U.P.S.  prepaid.  We  will 

IMMEDIATELY  send  you  a  replacement  at  no  charge 

via  U.P.S.  prepaid.  This  proves  once  again  that... 

We  Love  Our  Customers! 


COMMODORE  128 


SALES  289.00 


List  S399 


1571  DISK  DRIVE 


SALES  259.95 


List  $349 


TV  TUNER 

Now  switch  your  computer 

monitor  into  a  television  set  with 

the  flick  of  a  switch. This  Tuner 

has  dual  UHF/VHF  selector 

switches,  mute,  automatic  fine 

tuning  and  computer/TV 

selector  switches.  Hooks  up 

between  your  computer  and 

I  monitor!  Inputs  included  for  300 

ohm,  75  ohm,  and  UHF. 

SALES  49.95 

List  SI 30 


T 


14"  RGB  & 

COMPOSITE 

COLOR  MONITOR 


High  Resolution,  80  column 

Monitor.  Switch  from  RGB  to 

Composite.  (CI 28  -  IBM  -Apple) 

RGB  cable  $19.95.  Add  $14.50 

shipping. 

SALE  $237.00 

List  S399 


13"  COLOR 
MONITOR 


I  High  Resolution,  1000  character 

display,  with  built  in  audio 

speaker  with  volume  control. 

|SALE$179  95 

List  $329 


BIG  BLUE  PRINTER 


12"  80  COLUMN 
MONITOR 


High  Resolution  amber  or  green 

screen  monitor.  80 col,  x  1000 
lines  at  center.  Non-glare  screen. 
Works  terrific  with  IBM,  Apple 
and  Laser  business  computers. 

SALES  99.00 

List  SI 29 


This  is  the  affordable  printer 

you've  wailed  for!  8'/j"  letter 

size,  80  column  dot  matrix,  heat 

transfer  printer  features  upper 

and  lower  case,  underline, 

graphics,  word  processing,  and 

much  more. 

SALE$  39  95 

List  SI 99 


COMSTAR  1000 
PRINTER 


Print  letters,  documents,  etc.,  at 

100  cps.  Works  in  Near  Letter 

Quality  mode.  Features  are  dot 

addressable  graphics,  adjustable 

tractor  and  friction  feed,  margin 

settings,  pica,  elite,  condensed, 

italics,  super/subscript,  underline, 

&  more.  CBM  Interface  Included. 

SALE  $179.95 

List  $349 


PRINTER  & 

TYPEWRITER 

COMBINATION 

Superb  Silver  Reed  letter  quality 

daisy  wheel  printer/typewriter, 

just  a  flick  of  the  switch  to 

interchange.  Extra  large  carriage, 

typewriter  keyboard,  automatic 

margin  control,  compact, 

lightweight,  drop  in  cassette 

ribbon!  Includes  Centronics 

Parallel  Interface 

sALE$i7995 

List  $299 


160-180  CPS 
N.L.Q.  180 
PRINTER 

This  printer  has  a  Near  Letter 

Quality  button  on  the  front  panel. 

No  more  turning  the  printer  on  and 

off.  The  SK  buffer  will  free  up 

your  computer  four  times  faster 

than  conventional  printers  and  the 

high  speed  will  keep  you 

computing  more  than  printing. 

Super  graphics  along  with  Pica, 

Elite,  Italics,  and  Condensed  print. 

Lifetime  Warranty  on  Print  Head 

plus  6  month  immediate 

replacement  warranty, 

SALE$  199.00 

List  S499 


MasterCard 


TO  OROER  CALL  (312)  382-5244 
8  am  -  8  pm  CST  Weekdays  /  9  am  -  12  noon  CST  Saturdays 


BEST  SERVICE  IN  THE  USA  •  1  DAY 
EXPRESS  MAIL  •  OVER  1 000 


15  DAY  FREE  TRIAL* 
CUSTOMER  LIST  OF  OVER 
3,000,000  -  LARGEST  IN  THE  USA 


MUSICAL  KEYBOARD 

This  sturdy  40  key  professional 
guage  spring  loaded  keyboard 
gives  the  feel  and  response  of  a 

real  keyboard  instrument. 
(Conductor  software  required) 

SALE  $69,00 

List  $159.95 


1200  BAUD  MODEM 

Save  time  and  money  with  this 

1200  Baud  modem.  It  has  many 

features  you  expect  a  modem  to 

have  plus  4  times  the  speed! 

SALE  $79  95 

List  $199 


COMPUTER 
CLEANERS 

TV /Monitor  Screen  Restorer  & 

Cleaning  Kit,  Disk  Drive  Cleaner, 

Anti-Static  Keyboard  Cleaner 

•Choose  any  of  these  three 

computer  cleaners  for  only  $9.95 

each! 


SALE 


«9.95 


List  $19.95 


SUPER  AUTO 
DIAL  MODEM 


300  Baud  Modem  has  on-line 
clock,  dialing  from  keyboard, 

capture  and  display  high 
resolution  characters,  and  more. 

SALE  $29.95 

List  $99 


SINGLE  SIDED  DOUBLE  DENSITY  DISKS 


100i?o  Certified  SW   floppy  disks.   Lifetime 
Watranty.  I  Box  of  lOO  S29 .00  List  S 1 .99  each 


.29* ea. 


SPECIAL  BONUS  COUPON 

We  pack  a  special  software  discount  coupon  with  every          | 

Computer,  Disk  Drive,  Printer,  or  Monitor 

we  sell !  This  coupon  1 

allows  you  to  S A  V  E  O V  ER  S250  of f  sale  prices !               1 

(EXAMPLES) 

Name                              List 

Snie 

Coupon 

Transformers                                            $34.95 

SI2.95 

S2t.9S 

Trio  CI 28                                                  $69.93 

S42.95 

S39.9S 

Indoor  Sports                                            $29.95 

$19.95 

US. 95 

Championship  Basketball                          $34.95 

$22.95 

S21.9S 

Leader  Board                                             $39.95 

$23.95 

S2I.9S 

Tales  of  Me                                               $39.95 

$16.95 

SS4.95 

Monilor  Stand                                           $79.95 

$19.95 

SI6.9S 

Marble  Madness                                           $24.95 

$22.95 

S19.95 

Super  Bowl  Sunday                                   $33.00 

$20.95 

SIS.9S 

SAT  Sample  Tesl                                       $39.95 

$14.95 

$12.95 

Commando                                               J34.9S 

$22.95 

$21.95 

AulO  Duel                                                     $42.95 

$32.95 

$29.95 

Flight  Control  Joysiick                              1 1 9.95 

$12.95 

$10.00 

Robotics  Workshop                                 $149.00 

SI  19.95 

$114.95 

CI  28  Troubleshooting  i  Repair  Guide       SI9.00 

S14.9S 

$12.95 

(Sec  oyer  1 00  coupon  items  in  our  ca 

tslog.) 

ACTION  PACK  (Dt SI9.« 

LEADER  BOARD  (D) 13.95 

LEADER  BOARD  COURSES  (D). ,  ,  13,95 

MACH  5  (Q 19.95 

MACH  128  (Q U.95 

TENTH  FRAME  (D) U.95 


I 


TOM  WEISKOPF  PRO  GOLF  (D) ttl.»S  I 

VIDEO  PHILE  (D) M.9S  I 

PRINTERS  LIB.  I  (D) 1.95  I 

PRINTERS  LIB.  2(D) 1.951 

DATABASE  MQR./PLUS  -€128  (D). . . .  M.»5  I 
MIND  OVER  MATTER  (D) 1.95  I 


HEART  OF  AFRICA  ID) 

ONE  ON  ONE  ID) 

PINBALL  CONTRUCriON  (D). , 
MUSIC  CONSTRUCTION  (D) . . 
RACING  DESTRUCTION  (D). . 

MARBLE  MADNESS  ID) 

STAR  FLEET  1  (D) 

BALKON  RAIDER  (D) 

OUIiAM   ID) 


.  S9.9S 
.  .9.95 
..9.95 
..9.9J 
.  .9.95 
.22.95 
.25.95 
,21.95 
.22.95 


DATA  SOFT 


221  B  BAKER  STREET  (D)  . . , . 

MERCENARY  (D) 

NEVER  ENDING  STORY  (D)  . 

MIND  PURSUIT  ID) 

VIDEO  TITLE  SHOP  (D( 

THEATRE  EUROPE  (□) 


.  jn.95 
. .  n.95 

.  .  17.95 

.  .  17.95 
.  .  I7.M 
.  .  19. V5 


DESIGNWARE 


BODY  TR,^NSPARENT  ID) SM.95  I 

EUROPEAN  NATIONS  &  LOCATIONS  (0) .  i2.»S  I 
STATES  AND  TRAITS  IDI U.95  | 

SARGON  II  (D) S9.95| 

SAT  VERBAL  (D) I4.9S  I 

SAT  MATH  ID) 14.95  I 

SAT  PRATICE  TEST  (D) 14.95  I 


SUPER  HUEY  II  (Dl S12.95 

TALLADEGA    (Dl 10.95 

BEYOND  FORBIDDEN  FOREST  (D>10.95 


I 


ACCOLADE                        1 

ACE  OF  ACES  (D) 

. .  tll.95  1 

DAM  BUSTERS  (D) 

. .  .  11.95  H 

nctrr  night  (D) 

HARDBALL    (D> 

LAW  OF  THE  WEST  (D) 

...11.95  ■ 
. .  .  11.95  H 

KSLLED  UNTIL  DEAD  (D) 

1I95B 

COM.MANDO  (D) t21.95  I 

tARATE  CHA.MP  (D) n.95  I 

KUNC  FU  MASTER  ID) 22.95  1 


CHAMPIONSHIP  WRESTLING  (D) C1.9S 

DESTROYER  |D1 OM 

MOVIE  MONSTER  (D) 21.95 

WINTER  GAMES  (D) UM 

WORLD  GAMES  |D1 22.9* 

WORLD  K.ARaTE(D| 1«.95 

WORLDS  GREATEST  FOOTBALL  (D) . . . . 22.95 


ARTWORK 


PRINT  SHOP  |D1  . 
GRAPHICS  LIB.  I.J«  3(D). 

COMP.VNION  (D) 

TOY  SHOP  (D) 

WHERE  IS  CARMEN  SANDIECO  (D) . 
GRAPHICS  LIB.  HOLIDAY  ED.  IDI. , . 


ELECTRONIC  ARTS 


BEACH  BLANKET  VOLLEYBALL  |D) ».M 

EQUESTRIAN  SHOWJUMPER  (D) ».« 

HIGHLAND  GAMES  (D) 9.95 

POLICE  CADET  (D) 9.95 

THAI  BOXING  (D) t.K 

BRIDGE  4.0  ID) K,9S 

CARD  WARE  (D) ».95 

HEART  WARE  (D) 9.95 

PARTY    WARE<D) 9.95 

WARE  WITH  ALL  KIT  (D) 9.9S 

HOLIDAY  PRINT  PAPER  (D) 7.95 

FLIGHT  SIMULATOR  II  (D) W1.95 

JET  (D) 13.95 

FOOTBALL   (D) 25.95 

BASEBALL  (D) .......31.95 

ROADWAR  2000  (D) SU.9S 

BATTLE  OF  ANTIETAM  (D) 31.95 

GETTYSBURG  (D) 32.95 

WAR  IN  SOUTH  PACIFIC  (D) 32.95 

NAM  (D) 13.95 

U.S.A.A.F.  (D) 32.95 

KAMPFGRUPPE  (D)  32.95 

WAR  SHIP  (D) 32.95 


I 


I 


SOFTSYNC 


ACCOUNTANT.  INC.  CI2«  (D).. . .  M9,9S 

DESK  MANAGER  (D) 14.95 

KID  PRO  QUO  (D) 19.95 

MODEL  DIET  |D) 19.95 

TR!0  C6J  I D) 29.95 

DELTA  DRAWING  (C) S9.95 

NUMBER  TUMBLERS  (C) 9.95 

SEA  SPELLER  (O 9.9S 

UP  &  ADD'EM<Q 9.95 


Add$3.00($IO.OO(or  hardware)  lor  shipping,  handling,  and  insurance.  Illinois  residents  please  add  &'/>  */•  solas  tax.  Add  $4.00  ($20,00  tor  hardware)  for  CANADA, 

PUERTO  RICO.  HAWAII,  ALASKA,  APO-FPO  orders.  All  orders  must  be  In  U.S.  Dollors,  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Cashier 

Checic,  Money  Order  or  Personal  Chect<.  Allow  14  days  for  delivery.  2  to  7  days  for  phone  orders,  1  day  express  mail.  Prices  &  Avail obility  subject  to  change  without 

VISA-IMASTER  CARD-C  O  D    """'*■  Hordwore  shipping  pfices  vary  according  to  weight.  Please  coll  for  omounl.  No  APO-FPO  for  Monitors,    j;  q  q  (,„  nhone  orders  onlv 


GAME  PROGRAMS 


in'JAMRSC  HILH' 


The  Moonlight 
Zone 

for  the 
Commodore  64 


X  ou  arc  an  a\'ei-age  citizen  living  in  an 
apartment  IcKatcd  on  the  fiftietli  floor  of 
a  nssv  ap;irtment  building.  It  i.s  a  r\pic;d 
evening.  liveniJiing  appcare  quiet  and 
you  are  just  aix>ut  ready  to  .settle  back  to 
read  the  newspaper  and  watch  televi- 
sion. 

Suddenly  tlie  lights  go  off  ;uitl  tlie  tele- 
vision set  goes  blank,  ^bu  iissume  tliat  it 
is  just  a  temporarv'  power  Mure.  But 
then  the  apartment  higlirise  begins  to 
sway.  Spinning  creatures  appe;ir  out  of 
nowhere,  llic  creatures  st;irt  to  laugli 
and  proclaijii  tliat  you  will  never  be  able 
to  leave  the  ap:irtment  building.  Are  you 
dreaming?  Clould  diese  creatures  be  just 
part  of  your  im;^^nation? 

The  answer  is  no.  You  have  just 
crossed  over  into  :uiotlier  dimension — a 
dimension  which  is  ruled  by  creatures 
called  Moonbc"uns.  \'ou  see.  you  have 
just  crossed  over  into  the  Moonlight 
2tone! 

You  are  not  a  person  who  gives  up 
Kisily.  You  '.ire  determined  to  make  it  to 
die  first  f](K)r  of  die  buUding  ;uid  escape. 
You  must  pass  tlirough  the  openings  on 
each  floor  down  to  the  next.  The  situa- 
tion, however  is  worse  than  you  tlioiiglit. 
Tlic  Mcwnl>eams  ;ire  roaming  tlie  build- 
ing. If  a  .Moonbc-im  c~atchc-s  you,  he  car- 
ries you  up  fi\'e  floors  and  you  are 
blopped.  In  addition,  tlie  girders  of  the 
apartment  complex  have  become  elec- 
trified— if  you  touch  one  you  arc  id.so 
blopped!  \\yu  must  not  give  up.  You  must 
get  out  of  tlie  building 

This  is  the  setting  tor  Tlie  Moonlight 
Zone  for  die  Commodore  64.  After  the 
title  screen  :uid  (iuniliar  theme  music,  the 
playing  .screen  ap]>ears.  "\'ou  are  tlie  ni;ui 
stiinding  on  tlie  fiftieth  floor  Tlie  Mcx)n- 
txams  are  spinning  even^^vhere.  Using 
the  jovstick  you  can  move  your  man  left, 
rigjit  or  dowii.  Once  you  start  moving 
left  or  riglit,  you  ct)ntinue  in  tliat  direc- 
tk)n  until  v'OLi  chiuige  direction  vv  itli  die 
jov'stick. 

To  move  down  to  die  next  floor  vou 


You  have  just  crossed 
into  another 
dimension — a 
dimension  which  is 
ruled  hy  creatures  called 
Moonbeams 

must  pu.sh  die  joystick  down  .md  move 
through  one  of  the  openings  without 
hitting  a  girder  If  you  hit  a  girder  or 
Moonbeam  )'ou  are  bk)ppe(.l.  If  you  are 
blopped  five  times,  the  game  Ls  over  If 
the  time  runs  out  before  v'ou  reach  the 
first  fl(K)r,  die  game  is  ;Uso  over 

"Wlien  die  game  Ls  completed,  your 
score  is  c;ilculated  based  on  vvhedier  or 
not  you  reached  die  first  floor,  how  many 
times  you  were  blopped,  and  die  time  re- 
maining. Tlie  flfxir  you  ;ire  on,  how  many 
times  v'oii  were  biopped,  ;uul  die  higli 
score  iire  constiuidy  displav'ed  on  die 
screen. 

Wlien  you  push  the  joystick  down, 
your  player  does  not  move  down — pitrt 
of  die  screen  moves  up  ;md  a  new  floor  is 
dravvTi  on  die  Ixittom  of  die  screen.  Tliis 
gives  die  appe.irance  of  the  player  mov- 
ing down. 

The  Moonbeams  roam  in  various  di- 
rections. When  combined  widi  die  iUu- 
sion  of  the  player  moving  down,  the 
movement  of  the  Moonlx-iuiis  appears 
fester  di;ui  what  it  really  is.  At  times,  the 
Moonbeams  appear  to  move  in  a  direc- 
tion faster  dian  die\'  raiUy  ;ire  ;ind  may 
end  up  somewhere  you  don't  expect 
diem  to  be.  Overcoming  diis  optic:il  illu- 
sion nieiuis  a  gcxxl  bit  in  die  strategj'  of 
the  game. 


JOHN  OZEDZY 

No  two  apartment  buildings  arc  ever 
die  siimc  in  Tlie  Moonliglit  Zone.  Each 
floor  is  39  characters  long.  These  .^9 
characters  are  taken  from  a  string  of  255 
characters  widi  a  random  sasrting  point 
for  each  floor  At  anv"  given  time,  four 
floors  are  displayed  on  die  screen.  Some- 
timc-s  die  openings  in  die  fl(K)rs  may  line 
up  so  that  you  can  continue  moving 
down  without  delay.  At  times  you  may 
wish  to  remain  on  a  floor  until  the  Moon- 
bc"ims  p;i55. 

Remember,  you  must  make  it  to  die 
first  fl(X)r  before  time  runs  out  to  escape. 
If  a  Mcxinbc"am  grabs  you,  you  ;ire  trans- 
ported up  five  floors  and  blopped.  It  is 
possible  to  end  a  game  on  a  floor  higlier 
dian  die  fiftieth.  Unfortunately,  diis  :ilso 
me;uis  a  verv'  low  score. 

Tile  M(xinbeams  and  die  ]ila\er  arc 
sprites,  llic  .Moonbeams  rotate  dirougli 
six  sprite  shapes  (pointers)  ;uid  die  play- 
er n)tates  dirougli  two.  Ihe  ;uiiniatk)n 
enhiuices  die  movement  ;uid  makes  for  a 
more  colorfi.il  ;ind  appe;Uing  g;une. 

Tlie  Moonbeams  are  ver\-  pleased  diat 
you  have  ;uTivcd  in  the  .Moonlight  Zone 
and  wish  to  see  you  remain  diere.  Use 
your  skill  and  try  to  escape  this  strange 
dimension  where  Moonbeiuiis  ro;uii  luid 
life  will  never  be  quite  die  s;imc!  Q 

Omlimit'tl  on  pg.  50 
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PRINTERS 


MONITORS 

Sainsung  T4"  Cotor 

Samsung  Green  12* 

80  Col.  Cable 

Monitor  Cable 

NEC  12'  Color 

$139.90 
.  S  49.90 
..»     8.77 
..*    5.77 
..$134.90 

JOYSTICKS  &  ACCESSORIES 

SOFTWARE  CLOSEOUTS 


DISKETTES 


SonyDSDDSW $    9.97 

Memorex  DSDD  5'A ' S    8.97 

Precision  DSDD  514" S    7,97 

Bonus  by  Verbatim  DSOO  SVi'S    6.97 

Sony  3'A'  DSDD $  25.50 

Sony  3Vj"  SSDD S  19.50 

Winners  3'A"  DSDD S  24.00 

Zortl  I {  ^.77 

Zork  II $  ^.77 

Zork  III $  4.77 

RIe  Now $  7.77 

Calc  Now $  7.77 

Frogger $  7.77 

Q  Bert $  7.T7 

PQp«ye S  7,77 

Multipian S  29.77 

Triad i  4,77 

Battlezone i  7.77 

Robotron S  7,77 

Rack-Em   Up $  6,77 

Maeh  5 $  22.50 

Mach  128 S  29.90 

Leader  Board S  23.90 

Tournamenl  Disk $  12.90 

Aerojet $  20.77 

F15  Strike  Eagle i  19.47 

Conflict  in  Vietnam %  19.47 

Gunship $  22.77 

Silent  Service i  24.77 

Certiricate  Maker $  29.90 

Newsroom $  29.00 

Clip  Art  I $  18.90 

Clip  Art  II $  22.00 


MICROPROSE 


Okimate  10 $124.77 

Okimate  20 $134.77 

Plug-N-Print  C64 S  59.77 

Plug-N-Prinl  Amiga $  69.77 

Panasonic    1091 $224.77 

Panasonic    1080 $199.77 

Star  NX  10 $239.77 

Star  SG10C $228.77 

Okimate   120 $224.77 

Epson  LX80 $239,90 

Epson  FX  85 $369,90 

Epson  F)(2B6 $479.90 

VIC  1525  Graphics  Printer $  99.90 

MPS  803  Printer.. $109.90 

C1600  300  Baud  Modem $  37.90 

Commodore  PluaP4 $  79.90 


TIMEWORKS 


Sylvia  Porter's 

Persona!    Finance S  39.90 

Data  Manager  128 $  37.77 

Swiflcalc  (28  w/Sideways $  37.77 

Wordwriter  128  w/Spell  Checif.  .$  37.77 
Partner  128 $  37.77 

Ail   Four $149.90 

Data  Manager S  27.77 

Wordwriter _ $  27.77 

SwiftCalc $  27.77 

All   Three .,,$139.77 

Pocket  Writer  64 $  23.77 

Pocket  Writer  128 J  28.77 

Pockel  Planner  64 %  23.77 

Pocket  Planner  128 $  28.77 

Pockel  Filer  64 $  23.77 

Pocket  Filer  12. $  28.77 


SPRINGBOARD            ^^^^^                               U     BATTERIES  INCLUDED 
^  AMIGA  ■ 


Call  lor  Pricing 
...IN  STOCK... 


WICOThe  Boss $  10.77 

WICO  Ball $  14.77 

WKO  3  Way $  18.T7 

Kraft $  6.77 

5y<"  Drive  Cleaner $  6,77 

3'/!"  Drive  Cleaner $  7.77 

CRT  Cleaner S  14.77 

C54  Cover S  6.77 

C128  Cover $  7,77 

Drive  Cover  ST $  7,77 

Printer  Head  Cleaner , $  7.77 


CLOSEOUT 


Koala  Pad 
By  Koala  Technologtes $  39.77 


Championship  Wrestling $  23,90 

Word  Games $  23.90 

Supper   Cycle $  23,77 

Summer  Games $  23.90 

Summer  Games  II $  23.90 

Winter  Games $  23.90 

Fast  Load . , S  23.90 

Multipian S  39.90 

World  Karate  Champ $  17.90 

Worlds  Greatest  Baseball $  22.90 

Koronis  Rift - $  22.90 

Eidolon $  22.90 

Jet $  25.70 

Flight  Simulator  II $31,70 

Scenery  Disks  1-6 EA .  j  13,70 

Scenery  Disk  7-12 £A .  $  13.70 

Scenery  Disks  6  Pack $  69.70 

Consultant t  35.77 

Paperclip  $  35.97 

Paperclip  w/Spell $  47.77 


SUBLOGIC 


ABACUS 


1-800-233-6343 

(.^pniixs  oM.v 

226  Lincoln  Road    Miami  Beach,  FL  33139 


COMMODORE  HARDWARE 


C128  Computer $259.90 

C1571  Disk  Drive $239.90 

MPS  1200  Printer $249.90 

C1902  Monitor $288.00 

C1350  Mouse. . , , $  37.90 

C16B0  300  Baud  Modem $  49.90 

C1670  1200  Baud  Modem         $148.90 

C54  Compuler $139.90 

S4C  Computer S  CALL 

Assembler  Monitor $  24.99 

Basic  128  $  39.99 

Basic  64 $  24.99 

Cadpak128 $  39.99 

Cadpak64 $  27.99 

Chartpak128 $  27.99 

Chartpak64 S  24.99 

Cobol $  2700 

Forth $  26.90 

Powerplan $  26.90 

Quick  Copy  2.0 $  14,90 

Super  C  Compiler  $  39,90 

Super  Pascal  S  39,90 

T.A.S $  39.90 

Video  Basic $  27,90 

XPER $  39,90 

Ust  V8 $    6,49 

5  A  Side $    6,49 

Slugger $    6.49 

Paul  Macartney $    6.49 

BMX  Racer $    6.49 

Sky  Jet $    6.49 

Line  Action  Biker $    6.49 

Skiwriter $  11,99 

Busicate  3 $  11.99 

Instant  Recall $  11.99 

•  All  3 $  29.97 

Ace  of  Aces $  18.90 

Dam  Busters $  17.90 

Fighl  Night $  17.90 

Hardball $  17.90 

Law  of  the  West $  17.90 

Karaleka $  17.00 

Prinlshop $  25.90 

LIB   1/2/3 $  14.90 

Companion $  24.90 

Bank  St.  Writer - $  32.90 

Superbase  64 , $  47.77 

Superscript  64 $  47.77 

Superbase  128 $  52.77 

Superscript  128 $  52.77 


MASTERTRONIC 


nuDius  osn 


CUSTOMER  SERVICE  OR  IN  FLORIDA  (305)  538-1364 
FREE  FREIGHT  ON  ALL  ORDERS  WITHIN  CONTINENTAL  U.S.  OVER  $100.00 

Orders  under  $10000  add  S4,00  stiipping  and  handling.  COD.  orders  add  S4,00. 
Prices  reflect  a  3%  cash  discount  A. P.O.  F.RO.  orders  add  6%  shipping  &  tiandling.  Postal  orders  shipped  surface 
Ada  69n  tor  ajr  snipmenl   AUd  3%  (or  'JISMMC  Ficnda  residsnSs  add  5%  sales  lax  Personal  checks  allow  2  weeks  (or  processing- 
Prices  Subject  10  Change  WiUioul  Notice. 

ORDERS  RECEIVED  BEFORE  12:00  PM  WILL  BE  SHIPPED  SAME  DAY. 


1-800-233-6345 


GAME  PROGRAMS/MOONLIGHT  ZONE 


Continued  from  pg.  48 

Before  nping  these  programs,  read  "How  (o  Enter  Prognmis."  and  "How  to  L'se  the  Magazine 
Enin-  Progwrn  "■  The  BASIC  prognm's  in  ihLs  nugazinc  are  a\-ail3ble  on  disk  from  I/adsuf. 
P.O.  Bos  imr.  Shrcvcpori,  lA  ■ll.W-OOU^.  l-8()0-831-2694. 

The  Moonlight  Zone 

14    S=54  27  2;V=53  24  8:TM=2500:SC=0:BL=0 

:FL=50:HS=0:P=200:Q=202' JWHS 
20  GOSDB  800'BDLY 

22  P$="":A$=" [SHFT  V4 , SPACE4 , SHFT  V4 , 
SPACE4,SHFT  V14 , SPACE4 , SHFT  V2, 
SPACES, SHFT  V10 , SPACE4 , SHFT  V4] 
"'CFHM 

23  B?=" [SPACES, SHFT  V19,SPACE4, 
SHFT  V4,SPACE4,SHFT  V8,SPACE4, 
SHFT  V6,SPACE4,SHFT  V2,SPACE4] 
"'BCXM 

24  CS="[SHFT  V4,SPACE4,SHFT  V4,SPACE4, 
SHFT  V4,SPACE4,SHFT  V4,SPACE4, 
SHFT  V22, SPACES, SHFT  V3]"'BCKP 

25  D$="[SHFT  V7,SPACE4,SHFT  V18, 
SPACE4,,SHFT  V6  ,  SPACE4  ,  SHFT  V12, 
SPACE4,SHFT  V4 , S PACE3 ] " ' BCRU 

26  FOR  X=50880  TO  51116:READ  A 
:POKE  X,A:NEXT'GSIL 

28  FOR  X=49152  TO  49528:READ  A 

•.POKE  X,A:NEXT'GSWN 
30  FOR  X=12800  TO  13374:READ  A 

:POKE  X,A:NEXT'GSCG 
32  P$=A$+B$+C$+D$'EKOF 

34  POKE  V+28,128:POKE  V+37,1 
:POKE  V+38,8:POKE  V+46,14 
:P0KE  V+39,2:POKE  V+40,7'MNES 

35  POKE  V+41,14:POKE  V+42,5 
:POKE  V+43,8:POKE  V+44,15 
:POKE  V+45,1'KGJR 

36  FOR  X=2040  TO  2046:POKE  X,202:NEXT 
:POKE  2047,200:POKE  V+16,84'IHUQ 

37  POKE  V+0,30:POKE  V+1,20 
:POKE  V+2,160:POKE  V+3,20 
:POKE  V+4,40:POKE  V+5,20'MLCV 

38  POKE  V+10,30:POKE  V+11,250 
:POKE  V+6,100:POKE  V+7,250 
:POKE  V+8,10:POKE  V+9,250'MQKX 

39  POKE  V+12,40:POKE  V+13,250 
:POKE  V+14, 160: POKE  V+15,130 
:POKE  V+27,127'KNNW 

40  S=50433:POKE  S , 3 : POKE  S+1,2 

:POKE  S+2,0:POKE  S+3,3:POKE  S+4,252 
:POKE  S+5,1'MMXP 

41  POKE  S+6,0:POKE  S+7,255:POKE  5+8,0 
:POKE  S  +  9,254:POKE  S+10,2'KEAN1 

42  POKE  S+ll,254:POKE  S+12,254 
:POKE  S+13,255:POKE  S+14,0 
:POKE  S+15,0'KKFP 

44  Wl=PEEK{V+30) :W2=PEEK(V+31) ' GPFL 
50  REM     PLAYING  SCREEN 'BNXF 
52  PRINT" [ CLEAR, RVS, GREEN, SPACE 3] 
T  H  E[SPACE2]M  OONLIGHT 
[SPACE2JZ  0  N  EISPACE3] '"BABM 

54  PRINT" [RVS, YELLOW]  TIME [SPACE26 ] 

BLDPS [SPACE3] " 'BASM 
56  PRINT" [YELLOW, SHFT  V, RVS, GREEN] 


FL00R[SPACE14]HIGH  SCORE [ SPACES , 
RVOFF, YELLOW, SHFT  V]"'BAIS 
58  PRINT" [GREEN, SHFT  V]";MID${P$, 
INT(215*RND{9)+1) ,37) ;" [SHFT  V] 
..  iQTYS 

60  FOR  X=0  TO  3:F0R  Y=0  TO  3 

:  PRINT"  [SHFT  V]  "TAB{38r' [SHFT  V]" 
:NEXT  Y'JNSM 

61  PRINT"  [SHFT  Vj";MID$(P$, 
INT(215*RND(9)+1) ,37) ;" (SHFT  V] " 
:NEXT  X'HVON 

62  PRINT" [HOME, DOWN, RVS, YELLOW) 
"TAB(6) ;TM;TAB(36) ; BL 

: PRINT" [RVS, GREEN] "TAB (7)  ;FL; 
TAB (31) ;HS'GACO 

63  POKE  V+21,255:FOR  T=0  TO  1000 
:NEXT'GPLL 

64  POKE  50688, 255:POKE  50432,255 
:SYS  51104'DALM 

65  JY=PEEK(56321) AND  15'DLAL 

66  IF  JY=7  THEN  POKE  50447,1 
:POKE  50688, 128'FUNP 

67  IF  JY=11  THEN  POKE  50447,255 
;POKE  50688,128 'FXNQ 

68  IF  JY=13  THEN  150'DHDN 

70  P=P+1:IF  P=202  THEN  P=200'GMTJ 

71  Q=Q+1:IF  Q=208  THEN  Q=202'GMGK 

72  POKE  2047,P:FOR  X=2040  TO  2046 
•.POKE  X,Q:NEXT'GVKN 

73  Wl=PEEK(V+30) :IF  Wl>127  THEN 
200'GQDN 

74  W2=PEEK(V+31) :IF  W2>127  THEN 
200'GQGO 

75  TM=TM-5:PRINT" [HOME, DOWN , YELLOW, 
RVS] "TAB(6) " [SPACES] " 

:PRINT" [HOME, DOWN, RVS j "TAB(6) ; TM 
:IF  TM=0  THEN  300'JVJU 

76  GOTO  65'BCSJ 

149  REM     GOING  DOWN'BJIL 

150  POKE  50447, 0:POKE  50688,128 
:POKE  49522, 3:U=0'EDOI 

152  SYS  49iS2:U=U-M:IF  U=5  THEN 
160'GPHJ 

153  Wl=PEEK(V+30) : IF  Wl  AND  128  THEN 
200'GQCK 

154  W2=PEEK(V+31) :IF  W2  AND  128  THEN 
200'GQFL 

156  GOTO  152'BDHH 

160  PRINT" [HOME, GREEN, DOWN22] "'BAND 

161  PRINT"[SHFT  V]";MIDS(P$, 
INT(215*RND(9)+1) ,37) ; "[SHFT  V] 
"'GTTL 

162  FL=FL-1:PRINT" (HOME , DOWN 2 , RVS , 
GREEN] "TAB (7) " [SPACE3] " 

:PRINT" ( HOME, D0WN2, RVS] "TAB(7) ;FL 
:IF  FL=1  THEN  320"JVWO 
165  GOTO  70'BCOG 

199  REM  COLLISIONS 'BKQQ 

200  POKE    50432, 0:FOR    X=2040    TO    2046 
:P0KE    X, 208: NEXT 'GYAE 

202    FOR   X=0    TO    24:POKE    S+X , 0 : NEXT ' GKDE 
204    POKE    S+24,15:POKE    S+5,80 
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:POKE    S+6,243:POKE    S+3,4 

ESCAPED" "ENRM 

tPOKE    S+4,65'KFEM 

322 

GOSUB    500:SC=1000+(2*TM) -{50*BL) 

206 

FOR   X=20    TO    140    STEP    5 : POKE    S+1,X 

:GOTO    400'HAIK 

:NEXT'HNQJ 

369 

REM             SLOPPED 'BHXO 

207 

POKE    S+4,64:FOR    X=0    TO    50:NEXT 

370 

POKE    504 32, 127: PRINT" [HOME, CYAN, 

:POKE    S+4,64' IRAL 

D0WN13] ""CKOI 

208 

FOR    X=0    TO    24:POKE    S+X , 0 : NEXT ' GKDK 

372 

PRINT    TAB(2) "SORRY. .YOU    WERE 

210 

POKE    S+24,143:POKE    S+5,16 

SLOPPED    FIVE    TIMES !"'CCAR 

:POKE   S+19,16:POKE    S+6,252 

374 

GOSUB    500:50=750- (FL*10) 

:POKE    S+20,249'KKBK 

:IF    SC<0    THEN    SC=0:GOTO    400'JBRT 

212 

POKE    S+4,21:POKE    S+18,17 

399 

REM            GAME    OVER'BIDR 

:POKE    S+l,68:POKE    S+15,42 

400 

PRINT" [CLEAR] ":POKE    V+21,127 

:FOR    X=0    TO    200:NEXT'MHDN 

:FOR   X=2040    TO    2046:POKE    X,202 

214 

POKE    S+24,20:POKE    S+18,16 

:NEXT:Q=202'JFBK 

:FOR    X=0    TO    400:NEXT:FOR    X=0    TO    24 

402 

PRINT" [D0WN8, CYAN] "TAB (11) " [RVSj 

:POKE    S+X,0:NEXT'OGTQ 

GAM    E[SPACE2)0    V    E    R":PRINT 

218 

FL=FL+5:BL=BL+1: IF    BL=5    THEN 

: PRINT: PRINT: PRINT 'GHU J 

370'HSTO 

404 

PRINT    TAB(14) "SC0RE"SC:PRINT 

220 

PRINT" [CLEAR! "rPOKE    V+21,0 

:IF    SOHS    THEN    HS=SC'HPDL 

:GOTO    36'EJHC 

405 

PRINT    TAB(14)"HIGH    SC0RE"HS ' CFQI 

299 

REM            TIME    RUNS    OUT'BLDR 

406 

PRINT" [D0WN6] "TAB (11) "PLAY    AGAIN 

300 

POKE    50432, 127:PRINT" 1H0ME,D0WN9] 

[SPACE2]Y    OR    N"'CDIK 

"TAB(10) "SORRY. .TIME    RAN 

408 

GET    JUNK$:IF    JUNK$<>""THEN 

OUT."'DNMH 

408'FOVM 

302 

GOSUB    500:SC=1000-(50*BL)-(FL*10) 

410 

GET    M$:IF    M$=""THEN    416'EIJD 

:GOTO    400'HBQI 

412 

IF    M$="y"THEN    420'DFSE 

319 

REM            FIRST    FLOOR'BKCK 

414 

END'BACD 

320 

POKE    50432, 127: PRINT" [H0ME,D0WN5, 

CyAN]":PRINT    TAB(5) 

416 

Q=Q+1:IF    Q=208    THEN    Q=202'GMGL 

"CONGRATULATIONS!    YOU 
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1003 

DATA  197,157,0,198,202,203,247, 

417  FOR  X=2040  TO  2046:POKE  X,Q:NEXT 

162,1,169,1,141,80,197,173,80, 

:GOTO  410'GSWN 

197'BJBH 

420  SC=0:TM=2500:FL=50:BL=0 

1004 

DATA  45,0,197,240,3,76,243,198, 

:PRINT" [CLEAR] ":POKE  V+21,0 

232,232,14,80,197,208,238,76,49, 

:POKE  50432, 0:GOTO  36'JMQO 

234'BLUJ 

499  REM     MUSIC'BFQS 

1006 

DATA  169,0,29,0,197,208,3,76,97, 

500  RESTORE'BAOY 

199,169,128,61'BQQH 

502  FOR  L=S  TO  S+24:POKE  L,0:NEXT 

1007 

DATA  0,197,240,48,254,0,198,208, 

:POKE  S+5,9:POKE  S+6,0 

4 0,22 2, 25 5, 20 7, 76, 14 4, 199, 80 "BFXL 

:POKE  S+24,15'MCFO 

1008 

DATA  197,45,16,208,208,12,173,16, 

504  READ  HF,LF,DR:IF  HF=0  THEN 

20 8, 13, 8 0,197, 14 1,1 6, 20 8, 76 'BFSM 

RETURN'FMEI 

1009 

DATA  43,199,173,16,208,77,80,197, 

506  POKE  S+1,HF:P0KE  S,LF:POKE  S+4,33 

14 1,16, 208, 189, 0,1 97, 157, 0'BELN 

:FOR  T=l  TO  DR:NEXT'JWUP 

1010 

DATA  198,76,97,199,222,0,198,208, 

508  POKE  S+4,32:FOR  T=l  TO  50 

40, 254, 2 5 5, 207, 208, 29, 173, 80 'BGSF 

:NEXT'GLQN 

1011 

DATA  197,45,16,208,208,12,173,16, 

510  GOTO  504 'BDIB 

208, 13, 80, 197, 14 1,16, 208, 76 'BFSG 

512  DATA  44,193,250,63,75,100,56,99, 

1012 

DATA  91,199,173,16,208,77,80,197, 

100, 59, 190, 100, 53, 57, 100 'BBNM 

141,16,20  8,189,0,197,157,0'BEOH 

514  DATA  63,75,100,56,99,100,59,190, 

1013 

DATA  198,169,0,232,29,0,197,208, 

100,53,57,100'BPGM 

3,76,140,19  9,16  9,128,61,0'BCJH 

516  DATA  63,75,100,56,99,100,59,190, 

1014 

DATA  197,240,11,254,0,198,208,20, 

100,53,57,100'BPGO 

222, 255, 20 7, 76, 134, 19 9, 222, 0'BGGJ 

518  DATA  63,75,100,56,99,100,59,190, 

1015 

DATA  198,208,9,2  54,255,207,18  9,0, 

100,53,57,100'BPGQ 

197, 15 7,  0,198, 202, 76, 233,1 98 'BGUK 

520  DATA  44,193,250,84,125,1000,0,0, 

1016 

DATA  169,255,221,255,207,240,3, 

0'BDLG 

76,4  3,199,173,80,197,76,17, 

799  REM     TITLE'BFRV 

199'BGUL 

800  PRINT" (CLEAR] ":POKE  53281,0 

1017 

DATA  120,169,192,141,20,3,169, 

:POKE  53280, 0'DQOH 

198,141,21,3,88,96'BSRJ 

802  FOR  T=0  TO  100:X=INT(1000*RND(9) 

1018 

REM     SCREEN  MOVEMENT ' BOKG 

+1024):POKE  X,46:NEXT'KBLP 

1019 

DATA  174,114,193,224,3,144,3,76, 

804  PRINT" [D0WN4, YELLOW] 

117,192,188,114,193,140,121,193, 

"TAB(17) "T  H  E" :PRINT 

174'BMDP 

: PRINT  TAB (11) "M  0  0  N  L  I  G  H  T" 

1020 

DATA  118,193,232,202,32,30,193, 

:PRINT'GJCR 

172,121,19  3,173,119,193,201,2, 

806  PRINT  TAB(10) " [CMDR  P5]"TAB(25)" 

208,10'BMDH 

[SHFT  0,CMDR  Y4]":PRINT  TAB{14)" 

1021 

DATA  169,32,72,173,33,203,72,76, 

[SHFT  N] "TAB (25) "(CMDR  H]"'GNLW 

50,192,17  7,90,72,177,92,72,204, 

808  PRINT  TAB(13) "ISHFT  N,SPACE2, 

116'BLVI 

SHFT  0,CMDR  y,SHFT  P] "TAB (25)" 

1022 

DATA  193,240,20,200,177,90,72, 

[SHFT  0,CMDR  Y2]"'DGNS 

17  7,92,136,14  5,92,104,14  5,90,200, 

810  PRINT  TAB(12) " [SHFT  N,SPACE3, 

204'BLRJ 

CMDR  H]   [CMDR  N2,SHFT  M,SPACE2, 

1023 

DATA  116,193,208,2  38,240,18,136, 

CMDR  H]   [CMDR  H] "'CDKK 

177,90,72,177,92,200,14  5,92,104, 

812  PRINT  TAB(ll) " [SHFT  N,SPACE4, 

145'BMLK 

CMDR  H]   [CMDR  N2]   [SHFT  M] 

1024 

DATA  90,136,204,115,193,208,238, 

[CMDR  H]   [SHFT  L,CMDR  P3]"'CDBP 

17  3,119,19  3,201,0,208,5,104,104, 

814  PRINT  TAB(10) " [SHFT  N,SPACE5, 

76'BLQL 

SHFT  L,CMDR  P,SHFT  ia,CMDR  N, 

1025 

DATA  111,192,104,145,92,104,145, 

SPACE2,SHFT  M,CMDR  H] " 

90,23  6,117,193,208,160,96,172, 

:PRINT  TAB(9)"[SHFT  N]" 

116,193'BOCM 

:PRINT  TAB(9)"[CMDR  Y6)"'GJTX 

1026 

DATA  200,189,114,193,170,32,30, 

816  PRINT" [DOWN 2] "TAB (15) "(CYAN] 

19  3,17  3,120,19  3,201,2,20  8,19,13  6, 

BY  JC  HILTY"'CDKO 

169'BMQN 

818  GOSUB  500'BDIM 

1027 

DATA  32,153,122,193,173,33,208, 

820  PRINT" [D0WN2] "TAB (7) " [YELLOW] 

15  3,162,193,204,115,193,208,239, 

PLEASE  WAIT. .READING  DATA" 

240'BLWO 

: RETURN 'DDSN 

1028 

DATA  16,136,177,90,153,122,193, 

1000  REM     SPRITE  MOTION 'BMJW 

177,92,15  3,162,19  3,204,115,193, 

1002  DATA  169,255,45,0,198,240,16,169, 

208,240'BOIP 

0,141,0,198,162,21,18  9,0'BCTF 
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1029  DATA  236,117,193,240,37,202,32, 
30,193,172,116,193,200,136,177, 
90,72'BMUQ 

1030  DATA  177,92,32,48,193,145,92,104, 
14  5,90,32,56,19  3,204,115,193, 
208'BKPI 

1031  DATA  234,236,117,193,208,221,240, 
46,202,206,118,193,232,32,30,193, 
172'BOMJ 

1032  DATA  116,193,200,136,32,48,193, 
177,90,72,177,92,32,56,193,145, 
92,104'BNQK 

1033  DATA  145,90,204,115,193,208,234, 
236,118,193,208,221,238,118,193, 
232'BMFL 

1034  DATA  32,30,193,173,120,193,201,0, 

24  0,20,172,115,193,136,200,185, 
162'BMTM 

1035  DATA  193,145,92,185,122,193,145, 
90,204,116,193,208,24  0,96,18  9,89, 
193'BNJN 

1036  DATA  133,91,24,105,212,133,93, 
18  9,64,193,133,90,13  3,92,96,72, 
152'BJRN 

1037  DATA  24,105,40,168,104,96,72,152, 
5 6, 23 3, 4 0,168, 104, 9 6, 0,4  0, 80 'BGBO 

1038  DATA  120,160,200,240,24,64,104, 
144,184,224,8,4  8,8  8,128,168,208, 
248'BLCQ 

1039  DATA  32,72,112,152,192,4,4,4,4,4, 
4,4,5,5,5,5,5'BQCN 

1040  DATA  5,6,6,6,6,6,6,6,7,7,7,7,7,3, 
1,37, 3,23,2,2'BQHF 

1042  REM     SPRITE  DATA'BKCC 

1044  DATA  0,0,0,0,60,0,0,52,0,0,20,0, 
0,16,0,0,40,0,0,168,0,0,170,64,0, 
168'BNGN 

1045  DATA  0,0,156,0,0,40,0,0,40,0,0, 
130,0,0,130,0,0,24  3,192,0,0,0,0, 
0,0'BLUN 

104  6  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0'BIOJ 

1047  DATA  60,0,0,52,0,0,20,0,0,16,0,0, 
40,0,0,168,0,0,168,0,0,168,0,0, 
138'BMBQ 

1048  DATA  0,0,104,0,0,40,0,0,40,0,0, 
40,0,0,63,0,0,0,0,0,0,0,0,0,0,0, 
0,0'BLKQ 

1049  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ' BCTL 

1050  DATA  255,0,1,255,128,3,255,192,7, 
255,224,14,60,112,30,60,120,62, 
60'BLUK 

1051  DATA  124,127,255,254,255,255,255, 
255,255,255,248,255,31,120,25  5, 
30'BLLL 

1052  DATA  56,0,28,28,0,56,14,0,112,7, 

25  5,224,3,255,192,1,25  5,128,0, 
255,0,0'BOMM 

1053  DATA  0,0,0,0,0,0,0,255,0,1,255, 
12  8,3,255,192,7,25  5,224,15,241, 
192,31'BNRN 


1054  DATA  241,192,63,241,196,127,255, 
254,255,255,255,25  5,24  8,255,25  5, 
2  4  3,0'BOAO 

1055  DATA  127,252,0,63,254,0,31,255,0, 
1 5, 2 5 5, 12 8, 7, 2 5 5, 224, 3, 25 5 'BEYN 

1056  DATA  192,1,255,128,0,255,0,0,0,0, 
0,0,0,0,0' BMGL 

1057  DATA  255,0,1,255,128,3,255,192,7, 
255,224,15,255,19  2,31,255,192, 
63'BKCR 

1058  DATA  255,196,127,255,254,255,255, 
25  5,255,255,31,255,255,0,127, 
255'BKyS 

1059  DATA  128,63,255,192,31,255,224, 
15,255,24  0,7,255,224,3,255, 
192'BGNS 

1060  DATA  1,255, 128,0, 255, 0,0'BTFD 

1061  DATA  0,0,0,0,0,0,0,255,0,1,255, 
128,3,255,192,7,255,224,15,255, 
240'BKDL 

1062  DATA  31,255,248,63,255,252,127, 
255,254,255,255,255,255,255, 
255'BHJM 

1063  DATA  255,255,255,127,255,254,63, 
255,2  52,31,255,248,15,255,240, 
7'BIXN 

1064  DATA  255,224,3,255,192,1,255,128, 
0,255,0,0,0,0,0,0,0,0,0,255,0, 
I'BJIO 

1065  DATA  255,128,3,255,192,7,255,224, 
3,255,240,3,255,248,35,255,252, 
127'BMHQ 

1066  DATA  255,254,255,255,255,248,255, 
255,0,255,255,1,255,2  54,3,255, 
252'BLQR 

1067  DATA  7,255,248,15,255,240,7,255, 
22  4,3,255,192,1,255,128,0,255,0, 
0,0,0 'BOWS 

1068  DATA  0,0,0,0,0,255,0,1,255,128,3, 
255,192,7,255,224,7,199,24  0,7, 
199'BLET 

1069  DATA  248,7,199,252,127,255,254, 
255,255,255,255,199,255,0,7,255, 
0,7'BLFU 

1070  DATA  254,0,15,252,0,31,248,15, 
255,240,7,25  5,224,3,255,192,1, 
255,128'BMIM 

1071  DATA  0,255,0,0,0,0,63,248,0,63, 
249,128,51,153,159,51,153,15  5,51, 
249'BMFN  ^ 

1072  DATA  155,63,241,155,63,193,155, 
48,241,155,48,24  9,159,48,153,128, 
48'BLJO 

1073  DATA  153,240,48,249,240,0,248,0, 
0,0,0,0,0,0,0,15,255,240,31, 
255'BIYO 

1074  DATA  224,63,255,192,0,0,0,0,0, 
0'BBDJ 


END 
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CHALIENGIilG  SOFTWARE  AT 
DISCOUNT  PRICES  WITH  QUALITY  SERVICE. 
WHAT  AN  UNBEATABLE  COMBINATION! 


CALL  TOLI^FREE 


T^^ 


For  your  convenience  we  have  toll-free  ordering.  Whether  you're 
calling  to  place  an  order  or  just  to  ask  a  question,  every  call  is 
always  welcome  on  our  toll-free  lines. 


SAME  DAY  SHIPHNG 

We  ship  every  order  the  same  day  it's  placed.  Just  call  before  3:30 
and  we'll  ship  your  order  via  UPS.  US  Mail  Service  also 

available. 


DISCOUNT  PRICES 


Save  up  to  1  /3  off  the  retail  price  when  you  buy  from  Tevex.  Com- 
puter software  is  expensive.  Why  pay  more  than  you  have  to  for 
the  same  product. 


FRIENDLY,  KNOWLEDGEABLE 
STAFF 

At  Tevex,  our  staff  is  always  available  to  answer  your  questions. 
We  keep  up  with  all  the  new  releases  and  upcoming  games. 
Tevex  is  the  information  link  you  need  to  stay  informed  about  the 
latest  in  computer  software. 


For  Your 

Information 


At  Tevex,  we  have  a  full  line  of 
helpful  publications  for  your  use. 
Twice  each  year  we  send  out  our 
software  catalog.  These  are  40 
pages  or  more,  packed  with 
information.  Each  catalog  has  more 
than  250  software  reviews.  For  each 
product  covered,  you  can  read 
about  the  complexity  of  the  game, 
the  number  of  players,  subject 


matter,  graphics,  special  features, 
playing  time,  and  more. 

The  best  part  is  that  these 
catalogs  are  FREE  with  your  first 
orderfromTEVEX.  We  publish  the 
catalogs  in  the  spring  and  in  the  fall. 
You  can  also  get  one  just  by 
sending  us  your  name  and  address 
and  we'll  put  you  on  our  mailing  list. 


WRITE  FOR 
FREE  CATALOG 

Open  9-8  Mon-Fri. 
10-5  Sat 


CALL  TOLL-FREE  1 


/-""strategy  g/ 


Baltic  1985  $35  $23 

Battalion  Commander  |40  $27 

Battle  of  Antietam  $50  $33 

Battle  for  Normandy  $40  S27 

Battlefront  $40  $27 

Battlegroup  $60  $40 

Broadsides  $40  $27 

Carrier  Force  $60  $40 

Carriers  at  War  $50  $33 

Chessmasler  2000  $40  $27 

Clash  of  Wills  $40  $30 

Computer  Ambush  $60  $40 

Conflict  in  Vietnam  $40  $27 

Crusade  in  Europe  $40  $27 

Decision  in  the  Desert  $40  $27 

Dreadnoughts  S30  $20 

Europe  Ablaze  $50  $33 

F-15  $35  S23 

50  Mission  Crush  $40  $27 

Fighter  Command  $60  $40 

Geopolitique  1990  $40  $27 

Gettysburg  $60  S40 

Great  War,  1914  $40  S30 

Gulf  Strike  $30  S20 

Gunship  $35  $23 

Heart  ot  Africa  $15  S12 

Kampfgruppe  S60  S40 

Knights  of  the  Desert  $40  $27 

Lords  of  Conquest  $33  S22 

Mech  Briaade  $60  $40 

Norway  1985  $35  $23 

Operation  Market  Garden         $50  $33 

Panzer  Grenadier  $40  $27 

Rails  West  $40  $27 

Seven  Cities  of  Gold  $15  $12 

Silent  Service  $35  $23 

Six  Gun  Shootout  $40  $27 

Stalingrad  Campaign  S60  $40 

Surrender  at  Stalingrad  $40  $30 

U.S.A.A.F.  $60  $40 

Warship  $60  $40 
Run  5  Magazine  #1,2,3,4  $4  each  issue 


INCORPORATED 

1710  Wilwat  Drive  Suite  E 

Norcross,  GA.  30093 

404-441-3045 

1-800-554-1162 


Ballyhoo  $40  $27 

Cuttfiroats  $35  $23 

Enchanter  $35  $23 

Hitchhiker's  Guide/Galaxy  $35  $23 

Hollywood  Hijinx         NEW  $35  $23 

Infidel  $40  $27 

Kobayashi  Alternative  $40  $27 

Leather  Goddesses   NEW  $35  $23 

Moonmist  $35  $23 

Promethean  Prophecy  $33  $22 

Sorcerer  $40  $27 

Spellbreaker  §45  S30 

Trinity  $40  S27 

Zork  f  $35  S23 

Zork  11  or  III  $40  S27 

Zork  Trilogy  $60  $40 

Invisiclues  $B  $6 


Aliens 

Auto  Duel 

Cosmic  Balance 

Elite 

Imperium  Galactum 

Mercenary 

Mercenary-Second  City 

Movie  Monster  Game 

Ogre 

PSI  5  Trading  Company 

Reach  for  the  Stars 

Road  war  2000 

Star  Fleet  I 


Adventure  Constr 

Alter  Ego 

Alternate  Reality 

Archon 

Archon  II:  Adept 

Bard's  Tale 

Bard's  Tale  II 

Gemstone  Warrior 

Gemstone  Healer 

Hacker 

Hacker  II 

Killed  Until  Dead 

Labyrinth 

Law  of  the  West 

Mail  Order  Monsters 

Mindshadow 

Moebius 

Murder/Mississippi 

Neverending  Story 

Phantasie 

Phantasie  II 

Questron 

Rings  of  Zilfin 

Shanghai 

Shardof  Spring 

Tass  Times 

Temple  Apshai  Trilogy 

221-B  Baker  Street 

Ultima  III 

Ultima  IV 

Ultimate  Wizard        NEW 

Where  is  Carmen  San  Diego? 

Wizard's  Crown 

Wrath  of  Denethenor 


NEW 


NEW 
NEW 


NEW 


NEW 
NEW 


$15  S12 

$40  $27 

$40  $27 

130  $20 

45  $30 

40  $27 

50  $33 


!;40 

$27 

iiSO 

$33 

i;4o 

$27 

S15 

$12 

;i33 

$22 

;;40 

$27 

:;40 

$27 

!;20 

SIS 

i;30 

$20 

!;30 

$20 

:;35 

$23 

S30 

S20 

:;35 

S23 

S30 

S20 

!;i5 

$12 

$30 

$20 

$40 

$27 

!;35 

$23 

!;30 

$20 

S40 

S27 

;;40 

S27 

S40 

$27 

$40 

$27 

$35 

$23 

$40 

S27 

$35 

S23 

$40 

$27 

S30 

S20 

!;50 

$33 

!i60 

$40 

iK^3 

$22 

!;35 

$23 

$40 

$27 

S20 

$15 

America's  Cup 

$33 

S22 

Baseball 

540 

$27 

Baseball  Stadium  Disk 

520 

S15 

Bridge  Baron 

$40 

S27 

Championship  Baseball 

335 

S23 

Champ.  Football        NEW 

S35 

S23 

Champ.  Wrestling   NEW 

540 

$27 

Competition  Karate 

S35 

S25 

Computer  Quaterback 

S40 

S27 

Fight  Night 

$30 

S20 

Final  Four  Basketball 

S40 

S30 

Football 

S40 

S27 

Hardball 

S30 

S20 

Leader  Board 

S40 

S27 

Micro  League  Baseball 
MLB  1986  Team  Disk 

$40 

S27 

$20 

S15 

Pro  Basketball 

540 

S30 

Summer  Games  1  or  II 

$40 

S27 

Super  Bowl  Sunday 

835 

S23 

Tenth  Frame                NEW 

$40 

S27 

3  in  1  Football 

540 

S30 

2  on  2  Basketball 

S35 

S23 

Winter  Games 

S40 

S27 

World  Games 

$40 

527 

World  Karate  Champ. 

$30 

S20 

World's  Greatest  Baseball 

S35 

S23 

World's  Greatest  Football 

$40 

$27 

Ace  of  Aces 

Dam  Busters 

Deceptor  NEW 

Desert  Fox  NEW 

Destroyer 

Flight  Simulator  II 

FS  II  Scenery  Disks  (each) 

FS  II  Seen.  Western  US 

FS  II  Japan  Scenery  Disk 

FS  II  San  Francisco  Disk 

Gato 

Infiltrator 

Jet  Simulator 

Robot  Rascals  NEW 

Skyfox 

Spy  vs  Spy  I  &  II      NEW 

Spitfire  4D 


TEVEX  Disks 
Box  of  10 
V^  DSDD  Only  $12 


Top  Gunner 
Triple  Pack 


NEW 


$30 

S20 

$30 

S20 

$15 

S12 

$15 

S12 

$40 

S27 

$50 

S33 

$20 

S15 

SI  00 

S70 

$20 

S15 

$20 

S15 

$30 

S20 

$30 

S20 

$40 

S27 

$40 

S27 

$30 

S20 

$15 

S12 

$35 

S23 

$25 

S17 

$20 

S15 

Afganlstan 
Amnesia 
Battlecrulser 
Chickamauga 
Defender  of  the  Crown 
Destroyer  Escort 
Guderlan 
Phantasie  III 


P,">'fiftI.'5,"*S?  ""'**-*" -'WS.  ORDEa?[NG  AND  TERMS:  COD.  orders  welcome.  When  onJlrinsbv  phone  uk  VISA  or 

MASltRCARD.  When  ocdermg  bv  nuj  send  perjonil  check  or  money  ordef.  liKlBiJe  phone  numbci.  SIBPFINC:  Add  S3.0O 

foi  shipmn!  mi  handlint  ch«ee.  Otocgia  lesiicnU  add  4%  mIcs  hi.  Shipping  foe  CkikJuui  otdcu  ii  $4.00  or  S%  of  nitt. 

ATO  &  pro  ociteii  idd  S3 .00  or  5%  of  order.  Shijjpini  f«  ■11  OChci  fwicgn  oriJerj  is  S10.00  or  15*  of  order.  *  On  «1I  ordiii  before  3:30  pm. 


Realms  of  Darkness 

Road  to  Appomattox 

S.D.I. 

Ultima  I 

War  in  South  Pacific 

Wargame  Consrt.  Set 

World  Tour  Golf 


All  software  is  forthe  0-6*128. 
All  software  is  disk  only. 
Ihices  subject  to  change 


GAME  PROGRAMS 


BVMAR'IYR.f.MliO.JK. 


AmigaLife 

for  the  Amiga 

X  he  Rock)'  Hoiror  Picture  Show,  the 
Grateful  Dead,  Kurt  Vonnegut — practi- 
caUy  cvcr\'  form  of  artistic  expression  has 
its  share  of  cult  ftivorites.  ;ind  computer 
gaming  is  no  exception.  Back  in  1971, 
Martin  Gardner  of  Scientific  Amoican 
magazine  introduced  to  an  unsuspecting 
world  a  computer  simulation  of  growth 
and  de\elopment  in  populations  tliat  had 
been  created  a  \e;ir  e;irlier  b)'  Universit)' 
of  Cambridge  mathematician  John  H. 
Conway,  llie  giime  wis  Ufe,  and  in  the 
decade  and  a  lialf  since  its  invention.  Life 
has  become  somediing  of  a  computer 
phenomenon. 

About  Life 

Life  is  more  tlian  aii  experiment  re- 
quiring obser\'ation;  it  requires  participa- 
tion. In  the  simulation,  a  group  of  "cells" 
;ire  arranged  on  a  grid,  ;ind  tlirouj^  tlie 
course  of  tlie  game,  :ui  infinite  niinilKr  of 
generations  will  live,  die  and  reproduce 
according  to  a  simple  .set  of  rules. 

Wlien  Conway  first  set  out  to  devise 
tile  rules  for  Life,  he  tlitl  so  witli  respect 
to  what  he  I'elt  to  Ixr  diree  \eni'  b;isic  ge- 
netic principles  rcgiirding  populations, 
which  be  outlined  ;ls  follows. 

1.  Tliere  should  be  no  initial  pattern 
for  whicli  there  exists  a  simple 
prcx)f  diat  tlie  j-Mipulation  could  un- 
dergo infinite  growtli. 

2.  There  should  be  initial  patterns  that 
seem  to  undergo  infinite  growth. 

3.  There  .should  lie  initial  patterns  that 
grow  and  de\'ek)p  for  many  gen- 
erations, ultimately  concluding  in 
one  of  tlircc  conditions;  complete 
barrcnnes.s;  a  single,  unchanging  ar- 
rangement of  cells:  or  oscillation 
between  two  or  more  different  ar- 
rangemenLs  of  cells. 

Tliis  p:inicul;ir  .set  of  rules  is  brilliant, 
not  only  because  of  its  simplicity',  but  be- 
cause of  the  infinitely  unpredictable, 
even  seemingly  random,  beha\'ior  it  cre- 
ates. To  implement  tliese  rules  in  a  pro- 
j^-ain,  Conway  created  tlie  Life  uni\erse, 
a  finite  grid  in  which  each  cell  represents 
either  a  dead  or  living  organism.  Each 
cell  lias  eight  neighboring  ceUs.  four  di- 


Play  the  game  of  Life 
on  your  Amiga 

agon;i!l\'  adjacent  ;ind  four  ortliogon:Jl\' 
adjacent,  Tlie  rules  of  growtli  and  devel- 
opment for  each  cell  depend  exclusively 
on  the  number  of  neighboring  cells 
-wiiich  iire  living. 

1 .  Birtli — If  ;ui  empU'  cell  is  adjacent 
to  exacth'  tliree  living  cells,  a  new 
cell  LS  bom  tlierc, 

2.  Sur\'i\'al — If  a  living  cell  is  adjacent 
to  either  two  or  three  living  celLs,  it 
sLir\i\es  to  tlie  next  generation. 

3.  [ieatli — If  a  living  cell  is  adjacent  to 
four  or  more  cells,  it  perishes  (h)m 
o\'ercn)wding  If  a  living  cell  is  ad- 
jacent to  one  or  no  ceUs,  it  suc- 
cumbs to  Isolation. 

As  a  population  grows,  it  de\'e!ops  ac- 
ct)rding  to  tliese  rules,  unusual  :md  unex- 
pected \'ariatioiis. 

Playing  Life 

After  tsping  in  AmigaLife,  save  it  to 
di.sk  one  or  two  times,  just  as  a  precau- 
tion, lx.'fore  you  run  it,  Wlien  you  first 
run  Amigitlife,  die  screen  wiU  go  black 
for  about  2S  seconds  while  the  program 
initializes.  Vi'hcn  it's  done,  the  Life  grid 
will  be  displayed,  and  you  will  be  able  to 
Ixigin  setting  \.\\^  your  initid  pattern.  Just 
move  tlie  mouse  ixtinter  to  mi}'  of  tlie 
420  cells  on  tile  grid,  pressing  the  left 
mouse  biitton  to  ordain  it  v^^th  life.  If  you 
should  change  your  mind  about  a  p;ir- 
ticiihir  cell,  just  (loint  :uid  pres.s  o\'er  it 
ag;iin,  LUid  it  \\\W  no  longer  lie  ali\'e. 

Once  you're  .satisfied  -ftith  the  arrange- 
ment, just  point  to  the  BEGEN  box  and 
press  tlie  left  mouse  button,  then  sit  back 
and  watch  tlie  .show.  /Ul  births  and  deatlis 
will  occur  simultaneously  with  each 
passing  generation  as  die  total  jxipula- 
tion  and  present  generation  are  displayed 
in  tlie  upper  left-hand  comer 


Remembering  Conwa/s  third  genetic 
iLssumption,  you  will  note  that  only  nire- 
h'  does  a  population  complete!)'  tlie  out. 
Most  initi:U  patterns  reach  eitlier  st:ible 
jiatiems,  consisting  of  a  single,  unchiuig- 
ing  arrangement  of  cells — such  as  a 
hexi^on  formed  fiom  six  living  cells  or 
patterns  that  oscillate  fore\'er  bct\\een 
two  or  more  different  iirnmgemenLs  or 
li\ing  cells. 

As  you  use  AmigaLife,  you  will  discov- 
er Uiat  tlie  challenge  lies  in  determining 
■which  patterns  wUl  gro\\'  in  number  ;md 
complexit)'  with  successive  generations, 
;uid  which  patterns  will  simple  die  out. 
Tlie  computer  will  upd;ite  tlie  pattern 
witli  each  passing  generation,  ever)'  cou- 
ple of  seconds,  continuing  for  as  few  as  a 
handllil  of  distinct  generations.  ;ls  m;uiy 
:ls  ;ui  infinite  number  of  generations,  or 
until  die  entire  population  dies  ofi  com- 
pletely. You  can  experiment. 

It  should  be  noted  that  AmigaLife  does 
not  allow  patterns  to  grow  be\'ond  tlie 
boundaries  of  the  grid. 

Something  Extra 

Ufe  is  traditionalh'  an  exercise  in  spec- 
tatorship  since  the  player  is  only  re- 
quired to  interact  with  the  program  dur- 
ing die  initial  setup  phase.  After  tliat,  tlie 
computer  does  evcn'tliing.  In  Amigiil  jfe 
1  have  added  :ui  option  Uiat  I  iia\e  long 
missed  in  tlie  classic  \'ersion  of  Life. 

If  at  iuiy  time  during  the  growth  phase 
of  a  session  of  AmigalJfe  you  should  de- 
cide to  ;ilter  any  portion  of  tlie  grid,  just 
point  tlie  mouse  cursor  at  tlie  SIHTP 
l:x)x  and  press  die  left  mouse  button,  llie 
program  will  re-enter  tlie  scmp  ]>hase, 
ont)'  witliout  erasing  the  existing  pattern. 
Now  you  can  determine  whetlier  eacii 
cell  will  he  li\'ing  or  nonli\'ing,  just  as  be- 
fore. Once  you're  done  chiuiging  tlie  pat- 
tern, just  select  the  BEGIN  box  to  re- 
sume plaj'. 

One  of  the  first  things  diat  you'll  no- 
tice while  experimenting  \\\Xh  .^mig;!!  jfe 
Ls  tliat  die  patterns  produced  by  tlie  pro- 
gram have  a  tendency  towards  s">mme- 
tr)'.  Populations  initially  nonsymmetrical 
tend  to  evolve  irreversibly  into  s\'mmet- 
rical  ones,  while  populatioas  diat  ;ire  ini- 
tially sj'mmetrical  stay  tliat  way  Using 
the  seaip  option,  you  can  experiment 
with  altering  s-)'nimetr\'  to  produce  some 
vet)'  interesting  results.  g 


AfnlgaUfe 


'AmigaLife  VI.  4 


'  AMIGA  rendition  of  Conway's  "Life" 
'  by  Marly  PI  umbo 

DEFINTo-z 
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DIM  field!  (31,15),field2(31J5),  p%(8) 

FOR  X  =  0  TO  8 '  define  SAY  paramefers 

READ  p%(x) 

NEXT 

DATA  110,0,150,0,22200,64,10,1,0 

SAY  "WAH3N  M0W4IVIEHNT  PLIY4Z."p% 

FOR  X = 0  TO  3  '  dorken  screen 

PALETTE  x,0,aO 

NEXT 

WINDOW  2,  "■Am!gaLife",(0,0)-(631,186),30 
GOSUB  Drawfield 

WINDOW  1,  "AmigaLife':(0,0)-(631,186),30 
GOSUB  Drawfield 


PALETTE  0,0,0,1  ' 
PALETTE  1,1,1,1 
PALETTE  2,0,00 
PALEHE  3,01,0 


SAY"THAE4NXKYUW.",p% 


fe-color  fhe  screens 


Blah: 


SAY  "YUW  MEY  NAW  AXRREY3NJ  DHAX  B0W4RD.",p% 

Sefup: 
WHILE  (^ilOUSE(O)  =  0 '  wait  for  mouse  buffon 
WEND 

ml=MOUSECl) 

m2  =  MOUSE(2) 

IF  m2>ll  AND  m2<27  AND  ml  >514  AND  ml  <597  THEN  Play 

IF  ml<16  OR  ml  >611  OR  m2<39  OR  m2>177  THEN  Sefup 

x  =  INT((ml  -1 6)/20)  +  1  '  flip  cell  in  field2 

y  =  INT((m2-39)/10)+l 

field2(x,y)  =  l-field2(x,v) 

GOSUB  Biink 

GOSUB  Mwaif 

GOTO  Setup 

Ploy: 
F0Rx=1T0  2 
AREA  (51 5. 12) 
AREA  (596, 12) 
AREA  (596,26) 
AREA  (512,26) 
AREAFILL  1 
F0Ry  =  1T0  500 
NEXT 
NEXT 

BEEP 

ON  f^OUSE  GOSUB  Setgo 

GOSUB  h^woit 

Loop: 
FORw=l  TO  2 
IFww  =  2THENw  =  2 
WINDOW  OUTPUT  3-w 

UdOUSE  ON  '  interrupts  ore  okay  during  ttiis  pari 
ww=0 
p=0 
g  =  g  +  i 
GOSUB  Orowgrid 
GOSUB  Ctieck 


FORx  =  minxTOmaxx 

FORy  =  miny  TO  maxy 

o  =  field2(x,y) 

c=field2(x-l,y-l)+field2(x,v-l)  + 
field2(x+  l,y-l)+field2(x+  l,y)  + 
field2(x+l,y+l)  +  field2(x,y+l)  + 
field2(x-l,y+l)+field2(x-l,v) 

field  l(x,y)  =  0 

IF  c  =  3  THEN  field!  (x,y)  =  1  :  p  =  p  +  1  :  GOSUB  Blink 

NEXT 

NEXT 

COLOR  1  '  print  generation  and  population  totals 

LOCATE  3, 19 

PRINT  USING  "###" ;  g 

LOCATE  340 

PRINT  USING  "###"  ;  p 

MOUSE  STOP '  no  interrupts  during  Itiis 

F0Rx  =  0T0  31 
FORy  =  OTO  15 
field2(x,y) = field  l(x,y) 
NEXT 
NEXT 

WINDOW  3-W 
NEXT 
GOTO  Loop 

*  sut)rout)nes  • 

Drowfield: 
COLOR  2 

LINE(420,12)-(501,26)„BF 
LINE  (51 5, 12) -(596, 26),,  BF 
LINE  (16,12) -(362,26)„BF 
COLOR  1,2 
LOCATE  3,56 
PRINT  "SETUP" 
LOCATE  3,68 
PRINT  "BEGIN" 
LOCATE  35 

PRINT  "Generation:  0  Population     0" 
LINE  (424,14) -(497,24)„B 
LINE(519,14)-(592,24)„B 
LINE  (20,14) -(358,24)„B 

Bilnk: 
AREA  (((x-l)*2Q)-h  14,C(y-l)*10)H-37) 
AREA  STEP  (21,0) 
AREA  STEP  (0,11) 
AREA  STEP  (-21,0) 
AREAFILL  1 
RETURN 

Drowgrid: 
COLOR  3 

LINE(14,37)-(614,177)„BF 
COLOR  2 

FOR  x=  14  TO  614  STEP  20 
LINE(x-l,37)-(x  +  2,177)„BF 
NEXT 

F0Ry  =  37T0  177STEPlQ 
LINE(14,y)-(614,v) 
Llf^E(14,y-i-l)-(614,y+l) 
NEXT 
RETURN 
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Mwait: 
WHILE  MOUSE  (0)<>0 
WEND 
RETURN 

Setgo: 
n=MOUSE(0) 
il=MOUSE(l) 
i2  =  MOUSE(2) 
IF  i2>ll  AND  i2<27  AND  n>419  AND  il<502  THEN 

MOUSE  OFF 

FORil  =  l  TO  2 

AREA  (420, 12) 

AREA  (501,12) 

AREA  (501.26) 

AREA  (420,26) 

AREAFILL  1 

FOR  12  =  1  TO  500 

NEXT 

NEXT 

BEEP 

WINDOW  OUTPUT  w 

IFw  =  2THENww  =  2 

FOR  x=0  TO  31  '  clear  scratch  field 

FORy=0TO  15 

fielcll(x,y)  =  0 

NEXT 

NEXT 

GOSUB  Mwait 
RETURN  Blah 

END  IF 
RETURN 

Check: 
minx  =  30 
maxx=0 

FORy=l  TO  14 

FORx=l  TO  30 

IFfield2(x,y)=  1  ANDy>l  THEN  miny=y-l  :  GOTOcI 

NEXT 

NEXT 

Cl: 
FORy=miny+l  TO  14 
FORx=l  TO  30 

IFfield2(x,y)=l  AND  x<minx  AND  x>  1  THEN  minx  =  x-l 
NEXT 
NEXT 

F0Ry=14T0minySTEP-l 

FOR  x  =  30  TO  1  STEP-1 

IFfiBld2(x,v)=  1  AND  y<14  THEN  maxy=y+ 1  :  GOTO  c2 

NEXT 

NEXT 


c2: 


-1 


FOR  V = maxy- 1  TO  miny  STEP  - 

FORX-30TO  1  STEP-1 

IF  field2(x,y)  =  1  AND  x  =  >maxx  AND  x< 

NEXT 

NEXT 

RETURN 


:30THENmoxx  =  x+l 


LEND 


Conlinueil  from  pg.  14 

Y="+STR$(Y)+" [SPACES] 
5170    GOTO    5030 
5180    GRAPHIC    0:END 


(MID 


Free  Envelopes:  It  you  use  the  Ttie Print  Sljop  witli  the  M1*S- 
801/1525  printer,  j-oii  c;ui  save  money  two  ways  wlien  print- 
ing greeting  ciirtls.  Take  :ui  envelope  v\liich  tlLs  the  cards  yoii 
print,  carefully  break  its  scanis  and  trace  it  on  cardboard.  Cut 
out  the  template  ;ind,  using  the  usually  wasted  first  sheet  of  pa- 
per wasted  by  your  printer,  trace  around  tlie  template.  Cut  out 
tlie  envelope  ;ukI  fold  it  to  size.  Two  s-wipes  t)f  a  glue  stick  pro- 
duce a  perfect  envelope  tor  your  c;irds,  ;uid  more  glue  stick 
sc;ils  it  up  tor  mmling.  No  more  hunting  for  hard-to-find  fLinn\- 
sized  envelopes.  And  no  more  wasting  paper. 
PatiiciaJ.  Keivel 
HetuiersoiJ,  Nevada 

Cheap  Paper:  If  you  use  the  Okimate  10  or  other  similar 
printer,  you  may  have  had  trouble  tinding  :m  accessible  source 
of  inexpensive  paper.  M\-  local  K-Mart  sells  Sharp  heat-sensitive 
paper  (  E\-  1LS5  }  for  atxjut  S7  for  a  pack  of  1 00  sheets.  It  works 
fine  in  m>'  Okimate,  luid,  of  course,  I  don't  need  to  use  my  rib- 
lion  wlien  I'm  printing  in  black  only.  g 

Joe  Borysou'icz 
Cicetv,  Illinois 


JIFFIES/TELEPHONE  LISTER 


Continued fivm  pg.  30 

630    OPEN    15,8,15'BHAE 

640  PRINT#15,"S0:PHONE  NUMBERS" ' BDVJ 

650  INPQT#15,E,E$  :  IF  EOl  THEN 

PRINT  ES  :  STOP'HNCM 
660  SAVE  "0: PHONE  NUMBERS" , 8 ' BCML 
670  INPUT#15,E,E$  :  IF  E  THEN  PRINT 

E$  :  STOP'FMIM 
680  CLOSE  15  :  END'CDQJ 
690  REM'BARJ 

700  REM  NAME  &  NUMBER  DATA ' HP JF 
710  REM  PLACE  A  "/"  BETWEEN  NAME  AND 

NUMBER, 'BCMK 
720  REM  AND  A  "/"  BETWEEN  THE  HOME 

AND'BVKJ 
730  REM  BUSINESS  NUMBER'BOUI 
740  REM 'BARF 
750  DATA  "[SHFT  FJURTER,  [SHPT  F] 

RANK/123-9876/23  4-5678 '"BANG 
760  DATA  "ISHFT  PJOCKETS,  [SHFT  M] , 

[SHFT  T] ./(612)-123-4567/NONE"'BA 

TQ 
770    DATA    "[SHFT    K]ID,     [SHPT    B]ILLY 

[SHFT    T] ./456-7890"'BASP 
780    DATA    "[SHFT    D]'[SHFT    PJRUNES, 

[SHFT    S ]TU/9 87-6 543/333-3 3 33 "'BAVS 
790    DATA    "[SHFT    S]TOVE,     [SHFT    F] 

RANKLIN/8 8 8-8 888/123-4 321 "'BAQT 
800    DATA    "END" 'BARD  ^-^^s 


58    APRIL  1987 


TECHNICAL  TIPS 

Program 
Sentry 

for  the 
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-T  rotccting  your  program  from  unautlv 
ori/.cd  users  isn't  cils;.  Almost  anyone 
c:in  Iciirn  to  load  ;uid  list  prognims.  Pro- 
gnuii  Scntrj'  \\W\  gii:ird  your  \\\S\C  pro- 
grmn.s  v\itii  a  p;Lss-\Yord  sccuriC)-  system. 
/\jiyonc  who  attempts  to  load  a  progfram 
witliout  tlic  correct  p;iss\%'ord  will  only 
get  nuidoni  chanictcrs.  It  works  with  ci- 
tlier  tape  or  disk. 

Since  Prognmi  Sentn,-  iilters  \onr  pro- 
gnmi  into  a  seric-s  of  random  numbers, 
breiiking  tlic  ccxJe  to  recover  the  pro- 
gi-,ini  is  ne;irly  impossible.  Kvcn  an  ex- 
perienced machine-iangiiage  program- 
mer would  find  it  \'er\-  difticiilt.  'Ilierc  ;ire 
over  1 1  trillion  possible  p;Ls.s-\\'ords,  ;md 
since  tlic  password  is  not  stored,  there  is 
no  wa)'  to  discover  the  passvi-ord  from 
tlie  prognun  listing. 

'Hie  IJ/VSIC)  pn)gnuii  witii  tliis  sirticle 
places  a  macliine-hmgiiage  program  into 
mcmor}'  starting  at  52950.  Make  sure 
you  t\pe  :ill  tlie  numbers  correctly.  One 
wrong  number  could  niin  tlie  program. 
Since  the  BASIC  program  er;Lses  itself 
when  it  is  tlinjugli,  Ix;  sure  to  sa\  e  it  be- 
fore you  run  it. 

First,  load  and  run  Program  Sentr\". 
Next,  load  tlie  program  you  want  to  pro- 
tect. Ilie  computer  will  ask  \-ou  to  enter 
tile  password.  Since  tJiis  progr-.un  has  not 
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Protect  Your  BASIC 
program,  with  this 
password  security 
system. 

been  protected  previously,  tliere  is  no 
p;issword  yet.  Just  press  RH'll  IW  with- 
out typing  iuiydiing  ;uid  tlie  prognun  will 
load  as  normal.  After  tlie  prognim  loads. 
t\pc  the  usuid  SAVTi  command  and  press 
RETl'RN.  You  will  pnihably  w:mt  to  gi\e 
tlie  program  a  new  n:uiie  to  intlicate  that 
tliis  cop)'  is  protected.  Hie  computer 
will  tlien  ask  you  what  j'ou  wiuit  tlie 
passv\'ord  to  be.  Type  a  password  and 
press  RETURN.  Tlie  pas.sw'ord  c;in  be  ;my 
lengdi.  IIowe\er,  onh'  die  firet  six  char- 
acters ;ire  ini|>ort;uit.  An\'  characters  past 
die  first  sLx  will  be  ignored. 

The  password  can  contain  any  type  of 
character,  including  grajihics  characters. 
If  you  w;uit  to  .s;i\'e  tlie  program  without 
protecting  it,  just  press  Rl-niJltN  witliout 
t\ping  ;mytliing.  If  \ou  re;iily  want  your 
pnognuii  to  be  s;ife.  you  will  lia\e  to  er.ise 
an\'  copies  of  it  diat  were  sa\ed  without 
Prognun  Sentry.  Warning;  Do  not  forget 
the  pas.sword.  lliere  Ls  no  way  to  recover 
the  pnjgnuii  widiout  tlie  rif^t  password. 


Load  and  run  Prognun  Sentr)-  if  is  isn't 
already  in  niemor\-.  T\pe  die  nomial  load 
commimd.  Tlie  computer  will  ask  you  to 
enter  tlie  pas.svvor(.l.  'I>pe  die  pass-wortl 
iind  press  RETURN.  If  you  w;int  to  load  a 
prognmi  tliat  has  not  been  protected, 
just  press  RETURN  widioiit  f>ping  ;m) - 
thing.  Tlie  prognmi  will  tlien  load  into 
niemoiy.  If  you  t>ped  tlie  conrct  pass- 
word, the  prognun  will  be  tlie  sune  as  it 
was  originally.  If  you  r\ped  tlie  wrong 
passvvord,  tlie  prognun  will  not  run  ;uid 
list  only  garbage  on  the  screen. 

If  \'ou  w;uit  tlic  computer  to  stop  ask- 
ing )'ou  for  passwortLs,  j-ou  c;ui  easily  dis- 
connect Program  Sentry  b\-  holding 
down  die  RLTS'/STOP  ke)-  :uid  jiressing 
RESTORE.  Howe\er.  witliout  it  you  will 
not  be  able  to  use  progr;uiis  tliat  ha\e 
been  protected  with  Program  Sentr\'. 
Some  programs  may  destroy  the  nia- 
chine-language  code  by  chiuiging  b\tes 
from  addresses  52950  tlircuigli  532 1 1 .  If 
tills  happcas,  or  if  you  pressed  RESTORE, 
you  will  have  to  load  :uid  nin  Prognun 
Sentry  ag:un  to  jiut  it  hack  in  memory. 

Program  Sentry^  uses  a  nuidom  num- 
ber generator  tliat  creates  numbers  from 
a  six  b)te  seed  value.  Ciiven  tlie  s;uiic 
seed  value,  the  series  of  nuidoni  num- 
bers will  ;.ilways  be  die  s;uiie.  Ilie  cikIcs 
for  tile  first  six  characters  of  tlie  pass- 
word are  placed  in  tlic  sk  bnes  of  the 
seed  'v'alue.  Before  a  prognun  is  saved, 
each  b\le  Ls  altered  by  perfoniiing  ;ui  e.x- 
clusi've-OR  operation  on  it  witii  a  ran- 
dom number,  tlius  turning  your  prognun 
into  random  ch;iracters.  WTieii  you  load 
a  program  witli  the  riglit  password,  each 
b\te  is  again  exclusi\e-ORed  witli  tlie 
same  series  of  random  numbers,  return- 
ing your  prognun  to  its  origin;il  form.  Q 


Before  typing  thcst  progruiis,  read  "Hmv  to  Enter  Programs,"  anti  "How  to  L'se  the  Marine 
Entri-  Program."  Tlie  lUSIC  programs  in  this  magazine  are  aviililile  on  disk  fmm  toadsiar, 
P.O.  Box  .Vmir.  Sllreveporl.  U  "1 1.IU-INIIJ-  l-H0(l-«.11-26'Ji. 

Program  Sentry 

10  POKE  53280, 0:POKE  53281, 0'CPLB 
20  PRINT  CHR5(147) IPRINT 

CHR$(154) 'ELJC 
30  FOR  L=l  TO  9:PRINT:NEXT'FFCD 
40  PRINT  CHR$ (18) ; 'CFJC 
50  PRINT  TAB ( 13) ; "PROGRAM  SENTRY" 

:PRINT:PRINT'EGLI 
55  PRINT"BY  BENNETT  COOKSON  JR.  & 

ALAN  W.  POOLE" 'BAKQ 
60  A=52950'BGWD 

70  READ  N:IF  N=256  THEN  110'EJLH 
80  POKE  A,N'BDGF 


90  A=A+1:S=S+N'EHCJ 

100  GOTO  70'BCOU 

110  IF  S027668  THEN  PRINT 

:PRINT"THERE  IS  AN  ERROR  IN  THE 
DATA." rSTOP'HIPJ 
120  POKE  818,214:POKE  819,206'CPYB 
130  POKE  816,40:POKE  317,207'COBB 
140  PRINT  CHR$ (19) :PRINT 

CHR$(147) 'EKLD 
150  NEW'BALA 
52950  DATA  72,138,72,152,72,169,11, 

160'BCPK 
52958  DATA  207,32,30,171,32,196,207, 

32'BCES 
52966  DATA  96,165,173,0,2,240,6, 

32'BXOQ 
52974  DATA  207,207,32,126,207,104,168, 
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104'BFWR  53094 

52982  DATA  170,104,32,237,245,144,1, 

96'BCJP  53102 

52990  DATA  17  3,3,2,240,6,32,207, 

207'BYXO  53110 

52998  DATA  32,126,207,24,96,13,87,        53118 

72'BATW 
53006  DATA  65,84,32,87,73,76,76,  53126 

32'BXLD 
53014  DATA  66,69,32,84,72,69,32,  53134 

80'BXIC 
53022  DATA  65,83,83,87,79,82,68,  53142 

63'BXYB 
53030  DATA  32,0,72,138,72,152,72,      •    53150 

169'BAPA 
53038  DATA  98,160,207,32,30,171,32,       53158 

196'BCOI 
53046  DATA  207,32,96,165,173,0,2,         53166 

208'BALH 
53054  DATA  8,104,168,104,170,104,76,       53174 

165'BDMG 
53062  DATA  244,32,207,207,104,168,104,    53182 

170'BFWG 
53070  DATA  104,32,165,244,144,1,96,       53190 

134'BCIE 
53078  DATA  45,132,46,32,126,207,166,      53198 

45'BCNM 
53086  DATA  164,46,24,96,13,80,76,         53206 


69'BYGL 

DATA  65,83,69,32,69,78,84, 

69'BXAK 

DATA  82,32,84,72,69,32,80, 

65'BXCA 

DATA  83,83,87,79,82,68,58,0'BWYE 

DATA  165,43,133,253,165,44,133, 

254'BEHI 

DATA  160,0,177,253,240,9,32, 

168 'BBMG 

DATA  207,81,253,240,2,145,253, 

230'BDCF 

DATA  253,208,2,230,254,165,253, 

197'BEKF 

DATA  45,208,231,165,254,197,46, 

208 'BESE 

DATA  225,96,56,173,54,3,109, 

57'BACL 

DATA  3,109,59,3,141,54,3, 

162'BXOJ 

DATA  4,189,54,3,157,55,3, 

202'BXVI 

DATA  16,247,173,54,3,96,162, 

5'BYVI 

DATA  169,0,157,0,2,202,16, 

250'BYYH 

DATA  96,162,5,189,0,2,157, 

54'BXDO 

DATA  3,202,16,247 ,96, 256'BTDE 

END 


YET ITCOS1S  SO  MUCH  LESS. 


HOUSCHOLD  BUD6ET 
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Allow  us  to  introduce  the  most 
powerful  electronic  spreadsheet 
in  the  Commodore  world. 

Mnltiplaii: 

This  is  the  same  intensely  sim- 
ple, staggeringly  brilliant  pro- 
gram over  a  million  Apple  and 
IBM  owners  count  on. 


And  now  it  will  count  for  you, 
on  any  64  or  128. 

Ironically  however,  though  we 
recently  lowered  the  price  of 
Multiplan,  we  actually 
increased  its  capabilities. 

The  enhanced  version  not 
only  takes  full  advantage  of  the 
128's  expanded  memory  and  80 
column  screen. 

Not  only  includes  a  Quickstart 
instruction  manual 

And  not  only  comes  with  10 
ready-to-go  templates. 

But  it  is  the  fastest  load- 
ing spreadsheet 


Multiplan  v^erks 
humiiifuUy  m 
abiidgei. 


\ 


you  can  buy.  Which  means  in 
mere  seconds  you  can 
check  your  checkbook 
Take  stock  of  your 
stocks.  Or  calculate 
your  risks. 

You  can  plan,  bud 
get,  analyze, 
question,  ponder, 
revise,  estimate  \M:pia«m,i 

dllU  iUretdbU.  Imiiiiraiktof 

Just  by  doing  little  •''^'™"'-"  ^"'■^■ 
more  than  pressing  a  few  keys. 
In  fact,  there  really  isn't  any 
kind  of  hardcore  number  crunch- 
,    ing  you  can't  do  faster  and 
.    easier  with  Multiplan  at 
•    your  control. 

Whether  you're  managing 
•     a  family  of  4.  A  business  of 
50.  Or  a  nation 
'.    of  2bO  million. 
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BASIC  Macro 
Processor 

for  the  Comtnodore 
6i  128  and  Plus/4 


Xn  the  niid  80's.  many  computer  l:ui- 
guages  bcaimc  inadequate  to  h;m(.llc  the 
more  complex  business  and  home  com- 
puter applications.  As  a  result,  tlie  higli- 
level  language  macro  processor  ap- 
peared. The  use  of  macros  is  not  a  new 
programming  ccjncept;  tlie  macro  iusscni- 
bler  h:Ls  been  iiroiintl  tor  niiu:\-  \e;irs. 
Now.  ho\ve\'er.  macros  are  being  used  in 
high-level  languages  to  improve  tlie  tj unl- 
it}- and  speed  of  program  de\elopmenE. 

BASIC  is  a  liigli-le\'el  language  luid  a 
go(xl  c;mdidate  ;is  a  host  huiguage  lor 
macro  processing.  In  tlii.s  article,  1  refer 
to  host  as  tlie  program  cont:iiiiing  ma- 
cros or  tlie  input  prognuii  to  tlie  macR> 
proces.sor. 

All  BASICS  ha\e  tlie  PRINT  statement. 
But  most  do  not  ha\e  a  statement  that 
will  center  text  befoa-  printing.  If  our 
BASIC  docs  not  have  a  CHNTIlll  com- 
mand, then  a  series  of  stiitements  must 
be  used  to  accomplish  tliis.  A  macro  is  a 
single  conini;uid  \\liich  a.-presents  m;my 
comiiKuids. 

lliere  are  several  point.s  to  consider 
on  tlie  subject  of  macros  ;uid  liASKJ  Ma- 
cro P'rocessor.  Writing  macros  involves 
creating  new  commands  using  par:un- 
eter  re[ilacement,  tlireetix'cs,  anti  normal 
liingLiage  statements.  Macros  ;irc  refer- 
enced in  tlie  host  ]5rogr;im  by  tlieir  n:une 
and  parameters  (or  arguments ).  'Ilie  ma- 
cro processor  scims  tlie  host  program 
and  its  macros,  expands  macros  accord- 
ing to  p;inuiicters  and  directi\es  found, 
and  builds  tlie  new  run  pnjgr.un  file. 

Writing macnjs  is  ven-  much  like \\rit- 
ing  a  program  subroutine.  However, 
tlicrc  are  some  otlier  considerations.  'Hie 
following  ;ire  just  some  aspects  to  con- 
sider when  writing  macros  for  BASIC 
Macro  Proces.son  p;ir;ijiieters;  directives 
(conditional,  set.  error,  message,  end. 
exit);  macro  comment  lines;  line  num- 
bering; ;uid  COTOs.  GOSLlBs,  and  THIiN. 

Parameters  ( or  ;u^iments )  ;u-e  u.setl  in 
niacros  to  represent  a  \':iriable  or  litend 
which  is  replacetl  during  macro  process- 


BY  MICHAEL  If.IDni. 


Using  maa^os  can 
improve  programming 
development  by  saving 
time  through  less  keying 
ancl  program 
debugging. 

ing  or  when  die  macro  is  expanded  into 
tlie  run  program  file.  Tlie  replacement 
\:iliie  for  tlie  jxmimeter  is  g!\en  from  tlie 
macro  call  in  die  host  program.  The  fol- 
lowing macro  c;iU  uses  three  parameters. 

['■DISKL\.\nTILE.2,rj 
Tlie  macro  name  is  DISKIN  and  the  three 
piir.imeters  arc  NPiTHl;,  2  and  1 .  Tlie  ma- 
cro writer  will  represent  tlic-se  panun- 
eters  as  «— 0 1 , «— 02  and  ^-03,  when  writ- 
ing a  macro  statement  like  the  following. 
OPEN  <H-02,8,  ■M)2,  "^-OLS-R" 

Tlic  macro  proccsst:)r  will  replace  the 
•f-()l  \\\\h  MM^llJI  ;md  tlie  *-<)2  \\'itli  2. 
'lliis  macro  ]>n)ces.sor  allows  a  m:L\lnium 
of  20  ;irguments  per  macro  call.  Tliis  is 
one  of  the  ways  that  macros  have  intelli- 
gence over  ordiniiT}'  subn)utincs  or  ex- 
teni;il  siibrt)utines. 

A  conditional  directive  gives  a  macro 
tlie  abllit)'  to  include  or  exclude  code 
dc-]x*nding  on  tlie  \'alue  of  its  ailments. 
A  boolean  result  determines  whether 
code  will  be  included  (TRUE )  or  ex- 
cluded (I'ALSE)  from  tlie  run  prognun 
tile.  In  tlie  following  example, 

10  !02  EQL  "C64'' 

11  REM  C-64  ROUTINE 

12  ... 

20       !END 

line  10  is  the  conditional  directive.  The 
\';ilue  following  tile  of)erator  (EQL)  must 
always  be  enclosed  in  quotes.  In  the 
above  example,  lines  11  tlirougji  19  will 
Ix'  included  in  tlie  expiuided  prognun 
only  if  p:inuneter  2  is  equal  to  C64.  Otli- 
er operators  tliat  may  be  used  are 


NEQ   Not  equal  to 

LSS      Less  than 

GTR    Greater  dian 

GEQ   Cire;iter  diiui  or  equ;d  to 

IJ-Q    Ijcss  than  or  equal  to 

Note  also  line  20.  Conditional  direc- 
tives must  end  with  the  ENT)  directive. 
The  ENT)  directi\'e  tells  die  macro  pro- 
cessor to  tx'gin  including  ctxle  following 
tlie  END  directive. 

Tlie  EXIT  directi\e  stops  all  tlirtlier 
processing  of  a  macro.  Upon  reaching  an 
EXIT  directive,  the  macro  processor 
stops  prcx;essing  from  tlie  macro  tile  iind 
resumes  processing  troni  die  host  pn)- 
gram  tile.  EXIT  is  usiuilly  used  widiin  a 
conditional  directive  structure. 

Another  directive  is  SET.  Tlus  will  as- 
sign a  litenil  value  to  a  p;irameter.  It  may 
be  used  in  conjunction  with  tlie  condi- 
tional directive.  For  ex;uiiple,  in  die  fol- 
lowing tlic  second  p;iramcter  is  set  to  a 
value  when  it  is  detected  to  be  NTli  or 
empty. 

!0i  EQL  "" 

!SET  02  "255" 

lENT) 

Note  that  the  viilue  assigned  to  the  pa- 
rameter must  always  be  enclosed  in 
quotes.  In  tlie  alx>\'e  ex;uiipie,  it  cotild  be 
said  diat  piinimeter  2  wiU  default  to  die 
\';ilue  255  unless  it  Ls  given  a  value  in  die 
macro  call. 

ERROR  is  another  directive.  It  Ls  used 
to  terminate  the  macro  prtxjessor  run, 
usudh'  because  of  ;in  iinacce]itable  \;(lue 
found  in  a  ixinuneter. 

!04GTR"10" 

lERROR  "INV^UD  PARAM  4" 

!END 

Tlic  above  is  directing  tlic  macro  pro- 
cessor tt)  abort  iuid  display  a  message  if 
p;ir;imeter  4  is  greater  di;ui  10.  Note  diat 
lERROR  will  probabi)'  iilways  be  used 
widi  the  conditional  directi\'c. 

The  MESSAGE  directive  is  similar  to 
ERROIi  Hie  difference  is  diat  when  tlie 
macn)  pn)cessor  encounters  a  MESSACiE 
directi\'c,  die  message  in  quotes  is  dis- 
played and  processing  continues.  For  ex- 
ample, 

103  EQL  ■■" 

IMESSAGE  "NO  ERR  CHNL  CHK  t<)r 

DISKIN" 

!ENT> 

.Might  be  used  to  remind  the  program- 
mer that  code  for  reading  tlie  error  ch;ui- 
ncl  will  be  excluded  from  die  run  pro- 
gr:un  file. 

Here  are  die  six  B/\SIC  Macro  Proces- 
sor directive  comnijuids. 
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!01  LSS"10"    Conditiomil 
!EN1D  Code  following  is  included 

!EX1T         Stops  processing  macro 
!SET  01  "value" 

Assigns  ^-alue  to  parameter 


lERROR  "message" 

Aborts  macro  prcxessor 
IMESSAGE  "message" 

Displays  message 


Remember  to  always  express  argument 
numbers  as  two  digits — ()2  not  2. 

'llnere  is  a  special  pro\ision  for  m;(king 
comments  in  macn)s.  Any  line  beginning 
witli  a  quotation  m:irk  is  considered  a 
comment  LUid  Ls  NOT  included  in  the 
generated  run  pn)gram  file.  It  Ls  suggest- 
ed that  tliese  comment  lines  be  used  at 
tlie  l")cginning  of  each  macro  to  docu- 
ment the  panimcters  it  uses  and  its  tiinc- 
tion. 

Two  final  points  on  macro  writing  are 
line  numbering  ;uid  BASIC  branch  state- 
ments. The  line  numbers  in  a  macro 
must  always  start  with  1  ;md  increment 
by  I.  For  branching  to  line  numbers 
GOTO  luid  CiOSlJB  may  be  used,  but  not 
THEN.  TI  lEN  may  be  used  for  ;in  expres- 
sion following  a  conditional  IF,  but  not  to 
bninch  to  a  line  number 

Ordin;irih',  GOTO  :md  (iOSlIB  will  be 
used  to  refer  to  lines  in  tlie  macro.  Hov\'- 
e\'er,  occiisionally  a  branch  outside  die 
macro  ma\'  he  needed.  Wlien  bnmching 
to  line  numbers  diat  will  Ix;  outside  die 
macrf),  use  tlie  comm;md  GOT()#  or 
GOSUB#.  'llie  pound-sign  tells  tlie  ma- 
cro processor  not  to  compute  a  line 
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number  within  the  macro  but  to  use  the 
literal  number  following  the  command 
as  tlie  line  number 

A  maen)  is  referenced  in  the  host  pro- 
gnun  by  its  name  :uid  arj^^imetits.  llie 
proper  syntax  for  calling  a  macn)  in  tlie 
host  program  is  |"macro-n;uiie.p;tr;im- 
I.param2....param2{)")  where  [  must  be 
tile  first  character  itfter  the  line  number 

P.inimeters  may  he  left  M  I.l.  or  emp- 
t^'.  In  tlie  following  ex;unple,  ["maero-na- 
me,pl„p3,p4"],  parameters  2,  and  5 
through  20  arc  Nl'lJ. 

llie  macn)  processor  scins  the  host 
prognim  and  its  m;icros,  expantis  macros 
according  tt)  p;ir;uiieters  ;uid  directi\es 
found,  and  builds  die  new  run  prognun 
file.  Tlic  maca)  is  ^^Titten  ;uid  sjived  on 
dLsk  indeix-'ndendy  of  tlie  host  prognun. 


To  use  BASIC  Macro  Processor  both  tlie 
macros  and  tile  host  program(s)  must  be 
on  the  same  disk.  It  is  suggested  to 
backup  lx)di  macros  and  host  programs 
on  a  .separate  dLsk  before  running  BASICS 
Macro  Processor 

To  run  BASIC  Macro  Processor  just 
k)ad  it,  t\pe  RLTs'.  ;ind  enter  die  name  of 
tlie  host  prognuii.  llic  nin  pa)gnun  file 
v\ill  have  die  s;une  name  as  tlie  host  pro- 
gnun file  but  widi  the  extension  .liXl^ 
(for  expanded). 

Losing  macros  can  improve  program 
de\elopment  b\'  saving  time  tlirougli  less 
keying  and  less  program  debugging. 
Writing  macros  can  be  llin  luid  challeng- 
ing. IliCT-  can  be  as  simple  xs  a  CENTKR 
macro  for  centering  text  or  as  complex 
LLS  a  file  handling  n)utine  for  ;ui  applica- 


tion file  used  in  man\-  prognuiis  widi  dif- 
ferent accessing  needs. 

Macro  writing  is  a  creative  process  like 
programming.  Beyond  creating  an  auto- 
mated solution  to  a  problem— ^luiie  or 
whatever — macro  v^-riting  produces  a 
tool.  Good  macros  can  be  used  in  more 
than  one  program  and  possibly  more 
di:m  one  application.  Often  routines  diat 
lia\e  been  u.sed  o\er  ;uid  o\er  agjiin  widi 
only  sliglit  \ariations  (if  luiy)  are  gotxl 
candidates  to  be  made  into  macros. 

Study  die  following  macro,  host  jiro- 
gram  and  exp:uided  run  pn)gram  listings. 
Note  hu\y  p;inimeters  ;ire  replaced  ;uid 
direcd\c-s  followed  from  die  macro  to  be 
expanded  program.  Note  how  the  macro 
c-alls  arc  formatted  in  the  host  program. 

B 


Before  tiping  this  program,  read  "How  lo  Kntcr  Programs'  and  ■How  lo  L'st  [he  Magazine 
EnU}-  Ptograni."  The  EUlC  prograns  in  this  magazine  are  unliable  on  disk  from  Lnadstii. 
P.O.  Box  JOOO"  Shm-qion.  LA  71 150-O007. 1-80O-8.11-26W. 

BASIC  Macro  Processor 

10  REM  ***  MACRO  PROCESSOR  ***'BUNC 
30  N0$=CHR$(0) :QUOTE$=CHR$(34) :TRUE=1 

:FALSE=0:DIM  PARM$ (20) ' HPYN 
40  GT$=CHR$ (137) : GS $=CHR$ ( 14 1 ) ' ERXG 
50  PRINT" [CLEAR, DOWN, SPACE2,SHFT  *7] 

[RVS] BASIC  MACRO  PROCESSOR [RVOFF] 

[SHFT  *6,SPACE2,DOWN2] "'BAUT 
60  PRINT" [DOWN]  ENTER  NAME  OF  HOST 

PROGRAM: " : INPUT" [ RIGHT? , DOWN] ";P$ 

:P5=LEFT$(P$,12) 'EOJP 
70  PRINT" [DOWN  2] PROCESSING. . .":PRINT 

:MACR0=FALSE:CH=2 ' EQWN 
80  OPEN  l,8,15:OPEN  2,8,2,"0 

:"  +  ?$-)-",  P,R":  IN  PUT#1,E,E? 

: IF  E=0  THEN  100' IDKQ 
90  CLOSE  2:CL0SE  1:PRINT  E, E$: END ' EJRJ 
100  OPEN  3,8,3,"0:"-fP$-(-".EXP,P,W" 

:INPUT#1,E,E$: IF  E=0  THEN  120'HVYG 
110  CLOSE  3:PRINT#1,"S0:"+P$+".EXP" 
:INPUT#1,E,E9,E:PRINT  E$,E 
:GOT0  100'HYQH 
120  PRINT#3,CHR9 (1) ;CHRS(8) ; :G0SUB  240 

:GOSUB  240'FSQD 
130  REM  ****  MAIN  PROCESSING  LOGIC 

**** 'BCKF 
140  GOSUB  240:D$=CS:GOSUB  240 

:IF  D$=N0$AND  C$=N0$THEN  460'IBCJ 
150  GOSUB  260:GOSUB  240'CHEC 
160  IF  C$="{"  THEN  GOSUB  360:L$="" 

:GOTO  14  0'GMDH 
170  IF  C$="""  THEN  IF  MACRO  THEN 

GOSUB  650:GOTO  140'HOSJ 
180  IF  EXCLUDE  OR  C$=QUOTE?  THEN  IF 

MACRO  THEN  GOSUB  1210 

:GOTO  140'IDEP 
190  IF  C9="[BACK  ARROW] 


"  THEN  IF  MACRO  THEN  GOSUB 

1130'GLKK 
200  IF  C$=GT$OR  C$=GS$THEN  IF  MACRO 

THEN  GOSUB  1480' ITRF 
210  L$=L$+CS:IF  C§=N0$  THEN  GOSUB  300 

:L$="":GOTO  140' IWHG 
220  GOSUB  240:GOTO  190'CHCA 
230  REM  *    CLOSED  SUBROUTINES  FOLLOW 

*'BAKG 
240  GET#CH,C$:IF  C$=""THEN  C$=N0$'FOIG 
2  50  RETURN 'BAQB 
260  GET#CH,LN$,HN$: IF  LN$=""THEN 

LN$=N0S 'FVNK 
270  IF  HN$=""THEN  HNS=N0$'EJVH 
280  IF  MACRO  THEN  LM=LM-H 

:IF  LM>255  THEN  HM=HM+1 : LM=0 ' KAHR 
290  RETURN 'BAQF 

300  IF  W=0  THEN  W=LEN  (L$) -1-5 

:GOTO  320'HMVE 
310  W=LEN (L?) +4 "DGGB 
320  WT=WT+W:X=INT(WT/256) 

:HPS=CHRS  (X-i-8)  :X=  (WT-(X*256)  ) 
:LP$=CHR$(X) 'NQIS 
330  IF  MACRO  THEN  LN$=CHR$(LM) 

:HN$=CHR$(HM) 'GUYJ 
34  0  PRINT#3,LP$;HP$;LN$;HN$;L$; 

: RETURN 'CWXH 
350  REM  ***  OPEN  MACRO  FILE  ***'BTDH 
360  LF$="":L$="":IF  MACRO  THEN 
PRINT"CANNOT  NEST  MACROS" 
:GOTO  780'GQYP 
370  GOSUB  240:IF  C$<>CHR$ (34) THEN 
PRINT#1,"I": PRINT" [DOWN] 
MISSING  QUOTES" :GOTO  780'JRIR 
380  GOSUB  240: IF  C$=","THEN  GOSUB 

:PRINT:GOTO  410'HOQM 
390  IF  CS=QUOTE$  THEN  GOSUB  240 

:GOSUB  240:GOTO  410'GTMN 
400  LF$=LF$+C$: PRINT  C$;:GOTO  380' 
410  OPEN  5,8,5,"0:"-t-LF?-(-",P,R" 

:INPUT#1,E,E?:IF  E=0  THEN  430'HWMJ 


490 


'EQCE 
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420 

430 

440 

450 

450- 

470 

480 
490 
500 

510 
520 
530 


540 
550 

560 
570 
580 
590 
600 

610 
620 

630 

640 

650 

660 
670 
630 
690 
700 

710 

720 

730 
740 

750 

760 


770 

780 
790 

800 


PRINT" [CLEAR] FILE  ERROR" ; E ; LF$; E$ 

:GOTO  780'CNSH 

MACR0=TRUE:CH=5:G0SUB  240 

:GOSUB  240'EVBI 

LM=ASC(LN5) :HM=ASC(HN$) 

: MB=  HM*  25  6  +  LM ■ HAON 

L$=CHR$(143)+"  "+LF$+"  MACRO"+N0$ 

:GOSUB  300:RETURN' ISUN 

IF  MACRO  THEN  CLOSE  5 : MACRO=FALSE 

:CH=2:G0T0  130'GAPO 

PRINT#3,CHR$(0) ;CHR$(0) ; : CLOSE  2 

:  CLOSE  3'':CL0SE  1 '  GQHM 

END'BACG 

REM  COLLECT  PARAMETERS ' BRLM 

FOR  X=l  TO  20:PARMS (X) ="":NEXT  X 

:X=1 'GSBH 

IF  X>20  THEN  580'DGHD 

GOSUB  240'BDJC 

IF  C$=N0$THEN  PRINT" [CLEAR, DOWN] 
MISSING  QUOTE  IN  MACRO  LINE" 
:GOTO  780'FJCO 
IF  C$=QU0TE5THEN  610'DLWH 
IF  C$=","  THEN  X=X+1:GOTO  510'GJOK 
PARMS (X) =PARM$ (X) +C$ 'CSNK 
GOTO  510'BDFH 

IF  X>20  THEN  PC=20:GOTO  610'FLHM 
PC=X'BDGJ 
REM  610  CHECKS  FOR  CLOSING  ] 

NULL'BYAH 
GOSUB  240: IF  C$<>"]"THEN  630'FJFG 

GOSUB  240: IF  C$=N0$  THEN 

RETURN 'FJPG 

PRINT" [CLEAR]  INVALID  MACRO 

SYNTAX" :GOTO  780'CEVL 

REM  **  HANDLE  MACRO  DIRECTIVE 

**'BYSK 

D15=""'BDYG 

GOSUB  240'BDJH 

IF  C$="    "OR  C$=N0$  THEN  700'FKIM 

D1$=D1$+CS'CITK 

GOTO  660'BDLK 

IF  ASC(D1$)=128  THEN  EXCLUDE=FALSE 

: RETURN 'GVEK 

IF  LEN(D1$)=2  THEN  GOSUB  820 

: RETURN 'GKCH 

IF  EXCLUDE  THEN  GOSUB  1220 

:RETURN' EMKI 

IF  D1$="ERR[CMDR  A] "THEN  1240'DHYI 

IF  Dl$="MESSAGE"THEN  GOSUB  1310 

iRETURN'FIML 

IF  D1$="SET"   THEN  GOSUB  1370 

;RETURN'FIOL 

IF  D1$="EXIT"  OR  D1$=CHR$(237) 

THEN  CLOSE  5 :MACRO=FALSE :CH=2 

: RETURN 'KDUV 

PRINT" [CLEAR, DOWN] INVALID  MACRO 
DIRECTIVE  ";D1$:G0T0  780'CIBS 
REM  ***  ABORT  ROUTINE  ***'BSP0 
IF  MACRO  THEN  CLOSE  5 ' DGUN 
CLOSE  2:CL0SE  3:CL0SE  1 
ZPRINT" [D0WN2] UNABLE  TO  CONTINUE 
AT  LINE  "?'EHAN 


810  PRINT (ASC(HN$) *256) +ASC(LN5) 

:END'GQKK 
820  REM  *  HANDLE  CONDITIONAL  DIR 

*'BWLK 
830  AGNBR=VAL(D1$) 'CKCI 
840  IF  AGNBR<0  OR  AGNBR>20  THEN 

PRINT" [CLEAR] INVALID  ARG  NUMBER  "; 

D1$:G0T0  780'HVPV 
850  D2S=""'BDAI 
860  FOR  X=l  TO  3:G0SUB  240 : D2$=D2$+C$ 

iNEXT  X'HSCQ 
870  GOSUB  240:GOSUB  240'CHCL 
880  IF  C$<>QU0TE$  THEN  PRINT" [CLEAR] 

MISSING  VALUE  QUOTE  ON  ! 

[BACK  ARROW] #":G0T0  780'GMFY 
890  D3$=""'BDBM 
900  GOSUB  240: IF  C$=N0$THEN  PRINT" 

[CLEAR, DOWNJMISSING  QUOTE  ON  ! 

[BACK  ARROW] #":GOTO  780'GNPP 
910  IF  CS<>QUOTE$THEN  D3$=D3$+C$ 

:GOT0  900'HUEN 
920  GOSUB  240:REM  GET  LAST  NULL'CPIK 

930  IF  C$<>N0?  THEN  PRINT" [CLEAR] 

INVALID  CONDITIONAL  LINE  IN  MACRO" 
:GOTO  7a0'GJEV 
940  IF  D2$="EQL"THEN  GOSUB  1010 

: RETURN 'FIVM 
950  IF  D2$="LSS"THEN  GOSUB  1030 

: RETURN 'FION 
960  IF  D2$="GTR"THEN  GOSOB  1050 

:RETURN'FILO 
970  IF  D2$="LEQ"THEN  GOSUB  1070 

:RETURN'FICP 
980  IF  D2$  =  "NEQ"THE1S1  GOSUB  1090 

: RETURN 'FIGQ 
990  IF  D2$="GEQ"THEN  GOSUB  1110 

iRETURN'FIRR 
1000  PRINT" [CLEAR] INVALID  CONDITIONAL 

OPERATOR  ";D2$:G0TO  780'CIHE 
1010  IF  FARMS (AGNBR) =D3$  THEN 

EXCLUDE=0 : RETURN ' FYPD 
1020  EXCLUDE=1 : RETURN 'CJFX 
1030  IF  PARM5 (AGNBR) <D3$  THEN 

EXCLUDE=0 : RETURN ' FYQF 
1040  EXCLUDE=1: RETURN 'CJFA 
1050  IF  PARMS (AGNBR) >D3$  THEN 

EXCLUDE=0 : RETURN ' FYOH 
1060  EXCLUDE=1:RETURN 'CJFC 
1070  IF  FARMS (AGNBR)<=D3$  THEN 

EXCLUDE=0 : RETURN ' GYTJ 
1080  EXCLUDE=1: RETURN 'CJFE 
1090  IF  PARM$ (AGNBR) <>D3$  THEN 

EXCLUDE=0 : RETURN ' GYSL 
1100  EXCLUDE=1: RETURN 'CJFW 
1110  IF  FARMS (AGNBR) =>D3$  THEN 

EXCLUDE=0 : RETURN ' GYRE 
1120  EXCLUDE=1:RETURN'CJFY 
1130  REM  *  HANDLE  PARAMETER 

REPLACEMENT 'BCDF 
1140  GOSUB  240:D1$=C$:GOSUB  240 

:D1$=D1$+C$'FWEF 
1150  AGNBR=VAL(D1$) 'CKCC 
1160  IF  AGNBR<0  OR  AGNBR>20  THEN 
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1170 
1180 

1190 
1200 
1210 
1220 
1230 
1240 

1250 

1260 

1270 
1280 
1290 
1300 

1310 
1320 
1330 
1340 

1350 
1360 

1370 
1380 

1390 
1400 


1410 
1415 


1420 
1430 


1440 

1450 
1460 
1470 
1480 
1490 
1500 
1510 

1520 
1530 

1540 
1550 
1560 

1570 


PRINT" [CLEAR, DOWN] 

INVALID  ARGUMENT  ";D1$ 

:GOTO  780'HVQO 

L$=L$+PARM$(AGNBR) 'CQYG 

GOSUB  240: REM  GET  BYTE  AFTER 

{BACK  ARROW] ARC' CFJL 

RETURN 'BAQD 

REM  *  HANDLE  MACRO  COMMENT  *'BUUB 

GOSUB  240'BDJW 

IF  C$<>N0$  THEN  1210 'EJXB 

RETURN 'BAQX 

REM  *  HANDLE  ERROR  ABORT  *'BSTE 


="":GOSUB 

DQJF 


240: REM  READ 


E$  = 

QUOTE' 

GOSUB  240: IF  C$=QUOTE$THEN 

1290 'EQMH 

IF  C$=N0$THEN  1300 'DJBF 

E$=E$+C$:GOTO  1260'DLHH 

GOSUB  240: REM  READ  NULL'CMQI 

PRINT" [CLEAR, DOWN] " ; E$ 

:GOTO  780'CHRy 

REM  *  HANDLE  WARNING  MSG  *'BSOC 

PRINT"M>  ";'BBDY 

GOSUB  240: REM  GET  QUOTE 'CMOD 

GOSUB  240: IF  C$=QUOTE$THEN  GOSUB 

24  0 : PRINT: RETURN ' HRYI 

IF  C$=N0$  THEN  PRINT:RETURN'FGCF 

PRINT  C§|:GOTO  1340 "CIWE 

REM  *  HANDLE  SET  DIRECTIVE  * ' BUAJ 

GOSUB  240:D2$=C$:GOSUB  240 

:D2$=D2$+C$'FWHL 

ARGNBR=VAL(D2$) 'CLEJ 

IF  ARGNBR<1  OR  ARGNBR>20  THEN 

PRINT" [CLEAR, DOWN] 

INVALID  ARG  NUMBER  ";D2$ 

:GOTO  780'HXXM 

GOSUB  240:GOSUB  240'CHCA 

IF  C$<>QUOTE$THEN  PRINT" [CLEAR, 

DOWN] MISSING  QUOTE  ON  ! SET" 

:GOTO  780'GMSQ 

D3$=""'BDBA 

GOSUB  240: IF  C$=N0$THEN  PRINT" 

[CLEAR, DOWN] MISSING  QUOTE  ON 

!SET":GOTO  780'GNWM 

IF  C$<>QUOTE$THEN  D3$=D3$+C$ 

:GOTO  1430 'HVAK 

GOSUB  240:REM  GET  LAST  NULL'CPIH 

PARM$(ARGNBR)=D3§'BQXH 

RETURN 'BAQE 

REM  HANDLE  MACRO  BRANCH 'BRPK 

B$="":L$=L$+C$'DJTJ 

GOSUB  240: IF  C$="  "THEN  1500'EKQC 

IF  C$="#"THEN  GOSUB  240 

: RETURN 'FGOD 

B$=B$+C$:GOSUB  240'DKKD 

IF  C$=":"OR  C$=N0$OR  C$=", 

"THEN  1550'HNCI 

GOTO  1520 'BEFD 

BO=VALCB$) :B$=STR$(MB+BO) 'FPOJ 

IF  C$=N0$OR  C$=":"THEN  L$=LS+B$ 

: RETURN 'lOPM 

L$=L$+B$+C$:B$="":GOSUB  240 

:GOTO  1530 'GUMM 
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ATTENTION 

ALL  COMMODORE  64, 

VIC20,  COMM.  16AND 

COMMODORE  128  owners 

A  complete  self-tutoring  BASIC  programming  course 
is  now  available.  This  course  starts  with  turning 
your  computer  on,  to  programming  just  about 
anything  you  want!  This  course  is  currently  used 
in  both  High  School  and  Adult  Evening  Education 
classes  and  has  also  formed  the  basis  of  teacher 
literacy  programs.  Written  by  a  teacher,  who  after 
having  taught  the  course  several  times,  has  put 
together  one  of  the  finest  programming  courses 
available  today.  This  complete  13  lesson  course 
of  over  220  pages  is  now  available  for  the  COM- 
MODORE 64,  VIC  20,  COMMODORE  16  and  the 
COMMODORE  128  and  takes  you  step  by  step  thru 
a  discovery  approach  to  programming  and  you 
can  do  it  all  in  your  leisure  time!  The  lessons  are  fil- 
led with  examples  and  easy  to  understand  explanat- 
ions as  well  as  many  programs  for  you  to  make  up. 
At  the  end  of  each  lesson  is  a  test  of  the  information 
presented.  Furthermore,  ALL  answers  are  supplied 
to  all  the  questions  and  programs,  including  the 
answers  to  the  tests.  Follow  this  course  step  by 
step,  lesson  by  lesson,  and  turn  yourself  into  a 
real  programmer!  You  won't  be  disappointed! 

We  will  send  this  COMPLETE  course  to  you  at 
once  for  just  $19.95  plus  $3.00  for  shipping  and 
handling  (U.S.  residents,  please  pay  in  U.S.  funds). 
If  you  are  not  COMPLETELY  satisfied,  then  simply 
return  the  course  within  10  days  of  receipt  for  a 

FULL  refund. 

Now  available!  a  200  page  course 
exclusively  on  sequential  and  rel- 
ative files  using  a  unique  approach 
for  those  with  very  limited  file  programming  ex- 
perience -  set  up  your  own  personal  and  business 
records!  —  disk  drive  a  must  —  same  author  — 
same  guarantee  —  same  cost —  this  course  for 
all  computers  except  Vic  20. 
Fill  in  the  coupon  or  send  a  facsimile. 


NAME; 


ADDRESSl 
CITY: 


PROV./STATE:. 


POSTAL/ZIP     CODE: 

I  desire  the  BASIC  program- 
ming course  for; 
Commodore  64  D  Vic  20  D 
Comm.  128  C  Comm.  16  □ 
I  desire  the  FOLLOW-UP  D 
course  on  relative  and  seq- 
uential files  for  all  above 
computers  but  Vic  20). 


Any  complete  course:  $19.95 
Postage  and  Handling:  $3.00 
Total:  $22.95 

Send  Ctieque  or  Money  Order  lo: 
Brantford  Educational  Services 
6  Pioneer  Place, 
Brantford,  Ontario, 
Canada  N3R  7G7 
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We're  through  playing 

hard  to  get! 
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tiors  Starter  W* 


Now  QuantumLink  is  available  at 
your  local  Commodore  retail  store. 


JOIN  THOUSANDS  OF 
OTHER  COMMODORE  OWNERS 
WHO  ARE  CONNECTING  TO 
QUANTUMLINK  TO: 

•  Get  computer  help 

•  Access  software 

•  Play  games 

•  Learn  programming 

•  Tklk  to  Commodore  experts 

•  Win  prizes 

•  Make  travel  reservations 

•  Chat  live 

•  Send  mail 

•  Preview  "hit"  software 

•  Use  an  encyclopedia 

•  Tap  into  a  newswire 

•  Meet  friends 

•  Join  clubs 

•  Order  products 

•  Save  time 

•  Save  money 

•  Have  a  lot  of  fun 


Find  people  who  share  your  interests  and 
let  your  fingers  do  the  talking.  Chat  live. 
Send  mail. 


THE  ONLY  OFFICIAL 
COMMODORE  ONLINE  SERVICE 

QuantumLink  is  the  only  network 
actively  supported  by  Commodore. 
And  because  QuantumLink  is  avail- 
able only  to  Commodore  owners,  the 
services  are  carefully  selected  to  meet 
your  needs.  You'll  make  better  use  of 
your  computer,  plus  have  lots  of  fun. 


NO  OTHER  ONLINE  SERVICE 
IS  EASIER  TO  USE 
You  will  find  QuantumLink  very 
friendly.  You  don't  have  to  memorize 
any  complicated  commands — all  you 
do  is  select  options  from  the  colorful, 
easy-to-read  menus. 


Play  games  with  people  located  all  across 
the  country.  Compete  in  tournaments  and 
win  prizes. 

THE  LOWEST-PRICED 
FULI^SERVICE  NETWORK 

For  only  89. 95  a  month,  you  get 
UNLIMITED  access  to  a  wide  range  of 
base  services  including  up-to-the- 
minute  news,  the  encyclopedia,  the 
Commodore  Hotline,  and  much  more. 

Your  first  hour  of  special  "Plus"  ser- 
vices, including  chat  and  download- 
ing, is  also  FREE  every  month.  After 
your  first  hour,  "Plus"  services  cost 
only  6  cents  per  minute. 

THERE  IS  ABSOLUTELY 
NO  OBLIGATION 

If  at  any  time  you  are  not  completely 
satisfied  with  QuantumLink,  just  call 
Customer  Service  to  cancel  your 
membership. 

Special  1  Month  FREE  offer— you 
get  your  second  month  of  base  ser- 
vices FREE  when  you  pay  for  the  first! 
(A  S9.95  value!) 
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Access  thousands  of  programs  including 
previews  of  "hit"  software.  Submit  your 
own  programs. 

PRICED  AT  ONLY  $9-95!  * 

The  QuantumLink  Starter  Kit  includes 
everything  you  need:  telecommunica- 
tions software,  a  user  guide,  and  a  list 
of  local  access  numbers. 


AVAILABLE  NOW 

You  can  get  QuantumLink  right  now 
from  your  local  Commodore  retailer. 
If  QuantumLink  is  not  in  stock,  just 
order  by  phone. 


Call  toll-free: 
for  Dept.  67. 


1-800-392-8200— Ask 


■1    ahJuT    68   lu» 
••eld,    it   is  a: 


tjll.fji    il,    hi.lt    111    l«7a    And   BM^ 

Utilize  a  constantly  updated  encyclopedia. 
Get  online  tutoring.  Read  the  latest  news. 


'Suggested  retail  price.  Dealer  price  may  vary. 


Dealers/Distributors:   for  ordering 

information,  call  Ed  Rothstcin  at  Quantum 

Computer  Services:  (703)  448-8700. 


The  CommodorcPConnection 
8620  Westwood  Center  Drive  •  Vienna,  VA  22180,  703-8830788 


QiumumUok  is  i  scniccraark  of  Quanium Compuur Services,  Inc  Commodorr  is  a  indcntirk of  Coimnodoir  ElcciiDnics  Llmlicd . 


FALCON 

and  the  Enemv, 


by  Thomas  Hayes 

You  have  Just  been  summoned  to  the  briefing  room  for  your 
next  mission.  You  are  told  that  a  squadron  of  enemy  war 
ships  has  left  their  mother  ship  and  are  headed  to  earth. 
If  you  do  not  stop  the  attack,  it  is  certain  death  for  all 


\ 


T 


he  enemy  ships  are  smart  and  they  know  that  if  just  one  of 
them  gets  through  to  earth,  they  will  be  able  to  destroy  ail 
earthlings  and  colonize  the  earth.  Their  plan  is  very  simple. 
They  come  at  you  one  at  a  time  and  if  one  is  destroyed,  another 
takes  its  place.  They  hope  that  time  will  run  out  for  you  and 
earth  will  be  theirs. 


Your  pian  is  equally  simple.  Ytju  have  a  time  limit  in 
\\1iich  you  must  destroy  all  enemy  sliips  to  save  the 
earth  fiiom  destruction.  You  aish  to  your  new  Falcon  XY- 
8  computer-guided  freedom  flier.  You  strap  yourself  in 
and  push  the  butttm  to  turn  on  your  computer  guidance 
s)'steni.  To  tiie  riglit,  tlie  display  informs  you  of  systems 
ready  and  tlie  computer  jets  you  oflf  to  start  your 
mission.  All  s>'Stems  are  liandled  by  the  computer 
except  the  firing  of  your  kiser-generated  missiles. 

It's  your  job  to  shoot  down  enemy  ships.  Suddenly, 
the  first  ship  is  in  sight.  You  fire.  The  special  effects  alert 
you  to  the  fact  that  this  Ls  not  just  a  game — it's  life  and 
death  out  here  and  the  onl)'  one  you  can  depend  on  is 
yourself 

After  your  first  hit,  you  glance  over  at  the  time  you 
have  and  rush  in  ^'ain  to  destroy  the  enemy  before  they 
destroy  you.  Do  you  have  the  guts,  the  abilit}',  and  the 
stamina  needed  to  figiit  tliis  life  and  death  mission — not 
only  for  yourself  but  for  the  fiiends  and  lo\'ed  ones  you 
leave  behind?  If  you  dare,  read  on  and  find  out  what  is 
needed  to  be  a  hero. 

Game  Description 

T)'pe  in  and  save  Falcon  and  the  Enemy,  then  plug  a 
joystick  into  port  two  ;md  run  tlie  prognun.  The  first 
display  gi\'es  you  a  choice  of  time  and  the  number  of 
ships  you  tliink  you  can  destroy  in  tlie  time  allowed.  By 
pressing  tlie  proper  fijnction  key,  )'Ou  ha\c  a  number  of 
choices  ranging  from  Fl  (easy)  to  F8  (hard). 

Fl  gives  you  4(X)  time-c)'cles  to  destroy  50  ships, 
wliich  means  you  have  eight  time-cycles  to  ever)'  ship. 
F2  gives  you  525  time-  c\'cles  to  destroy  75  ships.  That's 
seven  time-c\des  for  ever\'  ship.  As  )'ou  increase  the 
number  on  die  function  key,  )'Ou  decrease  tlie  number 
of  time-c>cles  for  each  ship,  Tlie  most  difficult  dioice  is 
F8,  wliidi  has  225  time-cycles  for  225  ships — one  time- 
cycle  for  each  ship.  The  time-cycles  don't  really  stand  for 
any  real  time  period,  and  tliey 're  a  little  longer  than  a 
second. 

After  you  make  a  choice,  it  will  be  displayed  on  the 
screen  and  you  will  be  ;isked  to  wait  for  tlie  universe  to 
be  created.  As  you  u'ait,  you  will  see  to  the  right  the 
portion  of  the  screen  tliat  will  keep  you  informed  of  the 
information  needed  to  play  tlie  game.  At  tlie  top  riglit  is 
the  time  remaining  until  die  end  oi  the  game. 

Below  tlie  time  is  tlie  score.  I  hesitate  to  c:ill  it  score 
because  there  really  isn't  a  score  in  this  game.  You  either 
li\'e  or  die.  What  tlie  score  represents  is  the  enemy  ships 
left  to  destroy,  indicated  witli  a  plus  sign,  and  tlie  ships 
destroyed,  indicated  witli  a  minus  sign. 

And  fin:illy,  at  die  bottom  right  is  your  status,  wliich 
will  flash  ,\LrVE  on  ;uid  off  as  long  as  tlie  giime  is  being 
played.  After  several  seconds,  the  rest  of  the  screen  is 
filled  witli  st:irs  coming  fixini  tlie  inside  of  the  screen 
moving  out\\';ird. 

The  3D  effect  of  die  stiirs  is  a  two-step  procedure. 
First,  the  machine-language  program  inserts  a  period 


into  several  locations  and  then  replaces  it  with  a  space 
character  moving  outward  as  it  runs.  Secondly,  several 
colors  of  gray  and  white  are  poked  into  various  locations 
which  make  the  periods  appear  to  become  larger  as  the>' 
reach  the  edge  of  the  screen.  I  can't  teU  you  how  many 
different  metliods  I  tried  before  I  decided  on  this  one. 

llicre  -are  four  yellow  triangular  sliapes  which 
indicate  the  location  of  your  laser  missiles.  The  missiles 
will  appear  in  the  center  where  the  vellow  triangular 
shapes  point  like  the  crosshairs  on  a  gun  scope. 

The  enemy's  ship  Ls  always  moving  and  hovering  just 
in  front  of  your  ship.  By  using  the  joystick  you  can  posi- 
tion the  crosshairs  to  shoot  down  the  enemv'  anTOiiere 
on  the  screen.  By  moving  the  jo>-stick  forward  you  move 
the  side  triangles  up  and  by  pulling  the  jov'stick  toward 
you  the  triangles  at  the  side  move  down.  In  a  similar 
fashion  you  can  move  the  top  and  bottom  triangles  by 
shifting  die  joystick  from  side  to  side  to  move  tlie  trian- 
gles right  and  left. 

The  jov'stick  can  be  read  in  eight  different  positions: 
up,  down,  left,  right,  up-right,  up-left,  dov^n-right,  and 
down-left.  This  lets  you  move  all  four  triangles  at  the 
same  time.  When  you  push  die  fire  button  you  unleash 
the  powerful  laser  missiles. 

On  occasion,  it  may  seem  that  you  hit  only  one  ship, 
yet  two  ships  were  registered  as  being  hit.  This  is  be- 
cause after  one  ship  has  been  destro>'ed  another  sliip  is 
put  in  a  random  position  wliich  ma)'  be  close  to  the  area 
where  you  shot  last.  After  a  few  games  this  will  all  seem 
second  nature,  so  if  it  sounds  strange  right  now,  don't 
wony. 

If  you  are  lucky  enou^  to  destroy  ;ill  the  ships  before 
time  ains  out,  yoti  will  be  congratulated  and  asked  if  you 
wish  another  mission.  If  you  do,  just  hit  die  spacebar  and 
start  from  the  beginning  If  you  don't  make  it  alive,  well, 
you  don't  make  it  alive — ^there's  not  much  to  say.  How- 
ever, your  modiersliip  may  be  able  to  complete  your 
mission  and  you  may  get  a  second  chance — ^you  just 
never  know.  Q 
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Btfofc  ijping  UiLs  ptufpm.  taii  "How  to  Enter  Prosjnmi"  ami  "How  to  I'sc  the  Maitmnc 
Enli)'  Program."  The  BASIC  prognm!:  in  this  magazint;  are  arailabk-  on  disk  from  l/iadsiar, 
P.O. Box  .lOOO", Shrtvtpon, LA 71 130-0«O7,  i-80()Sil-269-l, 

Falcon  and  die  Enemy 

for  the  Commodore  64 
5  POKE  53280, 0:POKE  53281,0 
: PRINT" [CLEAR, GREEN] " 'DQTI 

10  GOSUB  55:FOR  X=49152  TO  50005 
:READ  A: POKE  X , A: NEXT ' HVDF 

11  PRINT" [CLEAR, RVS]  PRESS  FOR 

: [RV0FF,SPACE6]SHIPS [SPACES] 
TIME!"'BAPH 

12  PRINT" [D0WN2] (EASY) [RVS]  F-1 

: [RV0FF,SPACE7] 50 [SPACE9] 400" 'BAHF 

13  PRINT" [DOWN, SPACE6, RVS]  F-2 

:  [RV0FF,SPACE7]75 [SPACE9] 525"'BAFG 

14  PRINT" [DOWN, SPACE6, RVS]  F-3 

: [RV0FF,SPACE7] 100 [SPACES] 600" 'BAGH 

15  PRINT" [DOWN, SPACE6, RVS]  F-4 

:  [RV0FF,SPACE7] 125 [SPACES] 625" 'BAVI 

16  PRINT" [DOWN, SPACE6, RVS]  F-5 

: [RV0FF,SPACE7] 150 [SPACES] 600"'BANJ 

17  PRINT" [DOWN, SPACE6, RVS]  F-6 

: [RV0FF,SPACE7] 175 [SPACES] 525" 'BACK 

18  PRINT" [DOWN, SPACE6, RVS]  F-7 

: [RV0FF,SPACE7] 200 [SPACES] 400" ' BAJL 

19  PRINT" [DOWN] (HARD) [RVS]  F-8 

: [RV0FF,SPACE7] 225 [SPACES] 225" 'BAEM 

20  PRINT" [RED, SHFT  *40 , GREEN , DOWN ] 
ENTER[RVS]  F-1 : [RVOFF] TO [RVS ]  F-8 
: [RVOFF] "'BALJ 

21  PRINT" [DOWN] YOUR  CHOICE  IS 
: [SPACE2] "; 'BBPE 

22  GET  A$:IF  A$=""THEN  22'EHLD 

23  A=ASC(A$):IF  A<133  OR  A>140  THEN 
PRINT" [RVS]  PICK  AGAIN  [RVOFF, 
LEFT12] "; :GOTO  22'JSXV 

24  IF  A=133  THEN  SH=50:PX=400 
:PRINT" [RVS]  F-1: [RVOFF, SPACE 7 ] " 
:GOTO  32'HSYN 

25  IF  A=137  THEN  SH=75:PX=525 

: PRINT" [RVS]  F-2: [RVOFF, SPACE?] " 
:GOTO  32'HSSO 

26  IF  A=134  THEN  SH=100 : PX=600 
rPRINT" [RVS]  F-3: [RVOFF, S PACE? ] " 
:GOTO  32'HTWP 

2?  IF  A=138  THEN  SH=125: PX=625 

:PRINT" [RVS]  F-4: [RVOFF, SPACE?] " 
:GOTO  32'HTQQ 

28  IF  A=135  THEN  SH=150 : PX=600 

: PRINT" [RVS]  F-5: [RVOFF, SPACE?] " 
:GOTO  32'HTFR 

29  IF  A=139  THEN  SH=175 : PX=525 

: PRINT" [RVS]  F-6: [RVOFF, SPACE?] " 
:GOTO  32'HTXS 

30  IF  A=135  THEN  SH=200 : PX=400 

: PRINT" [RVS]  F-7: [RVOFF, SPACE?] " 
:GOTO  32'HTCK 

31  IF  A=140  THEN  SH=225: PX=225 
:PRINT"[RVS]  F-8: [RVOFF, SPACE?] 
"'GQUK 

32  POKE  76?,SH:FOR  D=0  TO  700 
:NEXT'FNRG 

33  PRINT"PLEASE  WAIT:  THE  UNIVERSE  IS 
BEING  MADE";:FOR  D=0  TO  1400 


:NEXT*FJCR 
50  PRINT" [CLEAR] " :F=PEEK (53 278 ) 
:POKE  49989, 194:POKE  49994,63 
:GOTO  100'GHYL 

55  PRINT" [RVS]  PROGRAM [ SPACE4 , DOWN , 
LEFT12]  WRITTEN  BY :[ RVOFF] ";' BBCU 

56  PRINT" [SPACE3] THOMAS  HAYES" 'BAFL 
60  RETURN 'BAQC 

100  GOSUB  4000:SYS  49937:POKE  V+21,143 

:FOR  L=0  TO  PX:SYS  XX 

:POKE  2, (RND(1)*15) +1'MMGK 
102  PRINT  AL$0$;:SYS  XX+6:F0R  S=0  TO  5 

:SYS  XX:SYS  XX+12:SYS  XX+12 

:SYS  XX+12'NHLN 
110  POKE  821, (RND(l)*181)+58 

:POKE  822, {RND(l) *159)+60:SYS  XX+6 

:SYS  XX+12'MNYL 
115  QO=PEEK(767) :IF  QO=0  OR  QO>225 

THEN  300'HTKK 
130  SYS  XX:PRINT  BL$"+" PEEK ( 76?) ; 

:SYS  XX+6: NEXT  S'GSDG 
140  SYS  XX:PRINT" [LEFT5,DOWN2] 

"PEEK{76?)-SH;:SYS  XX+6:SYS  XX 

:PRINT" [LEFT]   " ; G$PX-L ; ' JBUP 
150  SYS  XX+6:SYS  XXzPRINT  AL$I$0$; 

:SYS  XX+6:NEXT  L:G0T0  1000 'IBWL 
300  GOSUB  2000: 'BFLX 

400  PRINT" [HOME, DOWN, GREEN, RVS] 

********>!.  '  BBLG 

401  PRINT" [RED, RVS]  YOU  HAVE  SAVED 
THE  LIVES  OF  MILLIONS  [GREEN]*"; 
'BBRK 

402  BS$="* [SPACE33] *":PRINT 
BS$BS$BS$BS$BS$; 'CUSL 

403  PRINT"*************************** 
************* [RVOFF] "; 'BBFJ 

404  PRINT" [HOME, D0WN5,RIGHT13] 
CONGRATULATIONS"; :GOSUB  3000 
:PRINT'DHHL 

405  PRINT" [DOWN6,RIGHT6, SPACES] 

FOR  ANOTHER  MI SS ION [ SPACE4 ] " ' BAFL 

406  PRINT" [D0WN2, RIGHT?, RVS, RED, "27] 
"'BAJP 

407  PRINT" [RIGHT?, RVS,", RVOFF, GREEN, 
SPACE51 PRESS  SPACE  BAR [ SPACES , RED , 
RVS,"] "'BAJN 

408  PRINT" [RIGHT?, RVS, "27, GREEN] "; 
:GOTO  1060'CGST 

1000  GOSUB  2000: 'BFLT 

1010  RI$=" [HOME, DOWNS, RIGHT30, CYAN] " 
:R$=" [LEFT9,D0WN] " ' CGXG 

1020  RP$="[SHFT  +, DOWN, LEFT4, SHFT  U, 
SHFT  *2,CMDR  E,SHFT  *2,SHFT  I, 
DOWN, LEFTS, SHFT  U,SHFT  K, SPACES, 
SHFT  J, SHFT  I ] " : RP$=RP$+R$ : ' DNUR 

1030  RP$=RP$+" [SHFT  -j   [PURPLE] R. I. P. 
[CYAN, SHFT  -] "+R$+" [ SHFT  -, 
SPACE?, SHFT  -] "+R$+" [SHFT  -, 
SPACE7,SHFT  -] "+R$+ " [SHFT  -, 
L.  RED] YOUR [CYAN, SPACE3, SHFT  -] 
"•IMIS 

1040  RP$=RP$+R$+" [SHFT  -,L.  RED]GRAVE 
[CYAN, SPACE2, SHFT  -]"+R$+" 

Continued  on  pg.  124 
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Beginner's  Guide 
to  Burst  Mode 

De-mystify  the  Powerful  Set 
of  Burst  Commands 


I  he  disk  operating  system  (DOS)  of  the  Commodore 
1571  supports  an  extended  set  of  commands  which  en- 
ables die  dri\'e  to  CTcate,  read  and  write  disks  in  a  wide 
variet}'  of  formats  with  relative  ease.  To  the  novice,  the 
description  of  these  commands,  collectively  called  burst 
mode,  is  at  best  cryptic. 

Many  1 57 1  owners  have  used  burst  mode  in  its  var- 
ious forms  without  even  realizing  it.  Burst  mode  is  used 
by  tlie  Commodore  1 28's  CP/M  to  access  a  variety  of 
foreign  disk  formats  witli  the  1 571  drive,  A  form  of  burst 
mode  is  also  used  by  BASIC  7.0  commands  such  as 
BLOAD  when  the  128  is  connected  to  a  1571. 

Mtuiy  but  not  all,  of  die  burst  mcxle  commands  have 
analogous  commands  in  standard  Commodore  DOS. 
Why  then  is  there  a  need  to  duplicate  them  in  burst 
mode?  The  answer  is  twofold:  speed  and  versatility'.  The 
data  u-dnsfer  rate  of  a  1541  drive  (or  a  1571  in  1541 
mode)  is  about  350  bytes  per  second.  The  1571  in  fest 
mode  can  read  about  1,200  b>tes  per  second.  With 
burst  mode,  data  can  be  read  at  die  blistering  rate  of 
2,500  or  more  bytes  per  second!  In  feet,  the  ultimate 
read  speed  is  not  limited  by  the  hardware.  It  is  con- 
trolled by  the  efficiency  of  the  dri\ing  software.  (That  is, 
burst  mode  can,  in  theor>',  transfer  data  as  fast  as  you  can 
send  it  in  machine  language.) 

In  addition,  burst  mode  allows  you  to  read  and  write 
disks  formatted  in  the  industry'  standard  iVIFM  (maxi- 
mum (or  modified)  frequency'  modulation)  format  as 
well  as  Commodore  OCR  (group  coded  recording)  for- 
mat The  MFM  format  is  used  by  most  CP/M 


computers  such  as  Kaypro,  Epson  and  Osbomc,  as  well  as  MS- 
DOS  (IBM-PC  and  compatible)  and  TRS-80  macliines.  Apple 
Il-type  computers  use  a  modified  fbmi  of  GCR  wiiich  is  not 
compatible  with  either  MFM  or  Commodore  GCR 

Burst  mode  commands  :ire  accessed  by  sending  a  sf)ecific 
set  of  characters  tlirougii  the  disk  command  channel,  just  like 
the  usual  Commodore  DOS  commands  such  as  nO;,  sO:  and  b- 
p:.  Because  the  first  two  characters  of  the  command  string  for 
all  burst  mode  commands  are  uO,  buret  commands  arc  often 
referred  to  as  the  uO  commands.  Burst  mode  can  be  accessed 


by  a  BASIC  statement  such  as  OPEN  1 5,8, 1 5,"uO"  +  addition;il 
diaracters  or  the  machine  language  equivalent.  The  additional 
characters  depend  on  the  desired  ftinction  and  its  options. 
The  first  additional  character  selects  the  function  and  perhaps 
one  or  two  primary  optioas.  Tlie  remaining  ch;iracters  select 
secondary  options.  Not  all  of  tlie  secxmdiuy  option  characters 
need  to  be  sent  in  some  cases  because  defeult  values  can  often 
be  assumed. 

Table  1  gives  a  summary  of  some  of  the  more  common 
hurst  mode  commands  along  with  the  byte  sequence  re- 


Table  1 

Burst  Mode  Command  Summary 

FUNCTIOH 

BYTE  SEOUENCE 

BURST 

8URST 

FUNCTION 

BYTE  SEQUENCE                     BURST 

BURST 

uO-hctirSO 

INPUT 

OUTPUT 

uO  +  chrS(  )                         INPUT 

OUTPUT 

INQUIRE  DISK:  reset  drive  and  log  in 

P/FM  or  GCR  disk  before  a  read  or  write 

PRG  file 

3l,lilenamecharhytes... 

(same  as  above) 

MFM  disk  side  0 

4 

(none) 

+  ""■ 

or.GGR  disk 

one  status  byie 

WRITE  SECIDR:  (data  tratisfer  via  burst  mode) 

i^FM  disk  side! 

20 

(same  as  above) 

iJtm  disk  side  0 ' 

6G,track#,sector#,                 data 

one  status  byte 

aUERf  DISK  FORMAl  analyse  ti\Bk  format  (GCR  or  MFM-sector 

or  GCR  disk 

#  of  sectors                         bytes 

after  each  sector 

SideQ,!ia[3(0 

10 

(none) 

size.sectorrtrack) 

(either  side) 

transferred 

one  status  byte  then: 

MFM  disk  side  1 

82.track#,sedor#, 

(same  as  above) 

disk  or  unreadable 

#  of  sectors 

fomat  or  eise: 

WRITE  SECTOR:  (data  transfer  via  memory-wntes) 

another  status  byte. 

MFM  disk  side  0 

ig4,track#,sector#,1 

(none) 

number  of  sectors  on 

or  GCR  disk 

track,  logical  tracks, 

(eittier  side) 

min  sector*,  max  sec. # 

MFM  disk  side  1 

210.tiack#,seclor#,1 

(same  as  above) 

hard  sector  inledeave 

SET  SECTOR  INTERLEJVE:  (for  mulfi-sector  read  and  write) 

Side  1,  track  0 

26 

(same  as  above) 

Set  interleave 

8,interleave                         (none) 

(none) 

Side  0,  track  n 

138,n 

(same  as  above) 

Read  last  setting 

136                                 (none) 

last  setting 

Side  1 ,  track  n 

154,n 

(same  as  above) 

FORMMDISK: 

READ  SECJDR:  (data  transfer  via  burst  mode) 

MFM  single 

70,129,0,SEctor  size                 (none) 

(none) 

MFM  disk  side  0 

64.track#, sector, 

(none) 

for  each  sector  read: 

sided 

(0-128  bytes'SBCtor,  1=256, 

or  GCR  disk 

#  of  sectors 

one  status  byte  then 

2  =  512or3  =  1024), 

(eitder  side) 

data  bytes 

last  track*  (default  39), 

MFM  disk  side  1 

80,track#,s«ctor#, 

(same  as  alxjve) 

#  of  sectors  per  track, 

#  of  sectors 

starting  track*  (default  0), 

READ  SECTOR:  (data  transfer  via  memory-read) 

track  offset  (default  0), 

MFM  disk  side  0 

192,track#,sectaf#,1 

(none) 

fill  byte  (default  he*  e5) 

or  GCR  disk 

MFM  double 

first  byte  =  1 02  then  rest  same  as  above 

(eittier  side) 

sided 

MFM  disk  side  1 

20B,track#, sector*, 1 

(same  as  above) 

GCR  disk 

6.0,IDbyte#1,                      (none) 

(none) 

E^STimO:  read  an 

entire  GCR  file 

double  sided 

ID  byte#2 

SEQ  file 

159.filename 

(none) 

for  Kch  sector  read: 

no  directoiy 

cliaracter  bfles. 

.  +  "*" 

one  status  byte  then 

or  BAM 

254  data  tjytes 

(Wat/fflf  SWUS;Sieck  dnve  status  or  load  status  register 

last  sector:  status 

Log  in  disk  with 

76,new  status                       (none) 

(none) 

byte  --  31 ,  next  byie  = 

new  status 

number  of  bytes  left. 

Check  last  status 

140                                   (none) 

status  from  last  I/O 

ttien  rest  of  data  bytes. 

Check  if  disk 
was  logged 

Table  2 

204                                   (none) 

old  status  if  logged 
states  error  code  13 

Important  1571  Memory  Locations 

Address 

Function 

Address 

FuRclian 

Kei 

Dcr: 

Hei!             Dec 

21-29 

36-41 

ID  field  of  last  [vtFM  sector  accessed 

60                96 

Smallest  sector  number  on  track 

24 

36 

track* 

61                 97 

Largest  sector  number  on  track 

25 

37 

0= side  0,1  sictet 

67             ie3 

Current  track  number 

26 

38 

sector* 

97                151 

Number  of  MFM  sectors  per  track 

27 

39 

sector  size:  0  = 

128  bytes,  1=256. 

200-              512- 

Input  buffer  for  command  shings 

2  = 

256.3  =  512,4  =  1024 

229              553 

from  computer 

28-29 

40-41 

CRC  (checksum) 

274              628 

Length  of  command  string  in  input  buffer 

37 

55 

Bus  status  byte 

300-             768- 

RAM  buffers:  S300  is  the  start  of  buffer  for 

bito    1  ^  "file  has  only  one  sector" 

7FF             2047 

MFM  sector  reada'wrilBs 

3    inverse  status  of  clock  line 

1800-           6144- 

6522  VIA*  1 :  Controls  1541  bus  and  electronics                               | 

6    1=1571  busmode.O-l541busmode          180F  .         6159 

7    1  -1 571  operating  mode  (2  MHj) 

1C0O-           7168 

6522  VIA*  2:  Controls  GCR  recortJing 

0-1541  operating  mode  (1  MHz) 

1G0F             7177 

electronics,  motor,  etc. 

3B 

59 

tjst  burst  mode  command  number 

2000-            8192 

WO  1770:  Controls  WM  recording  electronics                                | 

30 

60 

MFM  disk  sector  interleave 

2003             8195 

5E 

94 

Burst  status  byte: 

4000-           1S384 

-     5526  CIA*  1  Controls  1 571  fast  bus  mode                                   | 

hit  0-3  current  enw  message  number 

400F            1639E 

returned  by  job  loop 

8000-          32768 

-     ROM  32K  disk  operating  system 

7       1=MFM,  0  =  GCR 

FFFF            65535 

5F 

95 

Current  job  code 
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quired  to  access  them.  All  b)te  \alucs  arc  in  decimal.  It  should 
be  noted  that  error  checking  is  not  performed  on  any  of  the 
parameters  before  they  are  passed  to  the  1571.  This  must  be 
done  by  the  calling  program  before  tlie  bytes  are  sent.  Wliere 
no  burst  diitu  input  or  output  arc  requested,  tlie  dmction  can 
Itc  c;dled  entirely  from  BASIC  with  no  need  to  resort  to  liigh- 
speed  machine  hinguagc.  By  using  special  options,  even  burst 
mode  input  and  output  can  be  avoided,  but  at  the  price  of  re- 
duced speed. 

Some  of  tlic  commiuid  bytes  have  been  simplified  frcjm 
what  apjxrars  in  the  1571  manual  by  selecting  the  most  fre- 
quendy  used  opticas.  Other  options  may  be  available  for 
some  of  the  commimds.  A  detailed  bit-by-bit  description  of 
each  command  string  can  be  found  in  the  1571  manual. 

Command  Summary 

Before  data  c;m  Ix;  rc'.id  from  or  viTitten  to  a  disk  using  burst 
mode,  it  is  necessary  to  log  in  tlie  disk.  This  is  somewhat 
equivalent  to  the  normal  Commodore  DOS  10  command 
After  logging  in,  data  can  be  read  or  written  at  wiU.  If  you 
remove  the  disk  and  change  it,  or  even  re-insert  the  same  one, 
you  wUl  have  to  re-log  tlie  disk.  The  disk  can  be  logged  in  by 
one  of  several  metliods.  Tlie  simplest  is  to  use  the  INQUIRE 
DISK  command.  The  disk  drive  wUI  send  back  a  single  status 
byte  to  the  128  representing  some  data  on  the  disk  format  and 
the  current  error  stiitus. 

If  more  detailed  inlbrmation  is  required  about  the  format  of 
tlie  disk  (such  ;is  number  of  sectors  per  track  or  sector 
numbering  system),  tlien  tlic  QUERY  DISK  FORMAT 
connmand  should  be  used.  This  command  can  be  used  to 
analyze  the  format  of  a  specific  track  on  tlie  disk,  wlille  the 
INQUIRE  DISK  otily  looks  at  tlie  first  track  on  die  disk.  Tlie 
status  bytes  reaimed  by  tliese  log-in  commands  need  not  be 
read  by  the  c;dling  prcjgnun  on  tlie  1 28  and  can  be  ignored  if 
you  just  want  to  log  the  disk  and  are  not  interested  in  any 
errors  that  may  have  occurred. 

Data  can  be  read  from  the  disk  by  one  of  two  methods.  The 
first  method  Ls  the  FAST  LOAD  command.  Unlike  the  other 
burst  mode  commands,  FAST  LOAD  acts  on  an  entire  file  and 
will  work  onl)'  on  nomi;il  Commodore  DOS  GCR  files.  Tlie 
routine  will  work,  however,  with  either  PRG  or  SEQ  t\pe  files. 
I  have  found  that  for  consistent  performance  tlie  DOS  wild 
card  character  (*)  should  be  appended  to  tlie  filen;ime  being 
read.  (FAST  LOAD  will  not  always  recognize  a  legitimate 
filename  unless  it  ends  witli  a  *.)  FAST  LOAD  will  re'tum  255 
bytes  ( 1  status  byte  allowed  by  254  data  bytes)  for  each  sector 
read.  Remember  that  normal  Commodore  DOS  sectors 
contain  only  254  data  bytes  because  the  first  two  b\tcs  are 
used  to  link  to  die  next  sector  in  the  file.  Subsequent  sectors 
in  a  file  are  linked  automaticall)', 

The  second  method  (lUiAD  SECTOR)  is  similar  to  the 
Commodore  DOS  Block-Read:  (b-r:  or  ul:)  command.  Tlie 
command  will  work  with  eitlier  GCR  or  MFM  disks.  For  GCR 
disks,  tlic  comm;ind  remms  257  bjtes  ( 1  status  byte  followed 
by  256  d;ita  bytes)  for  each  sector  read.  MFM  disks  can  have 
sector  lengths  of  128, 256,  512  or  1,024  bytes.  Tlie  number  of 
bytes  returned  is  always  one  status  byte  followed  by  data 
bytes  for  one  sector. 

Unlike  DOS  Block-Read:,  tlie  burst  mode  command  can  be 
used  to  read  more  than  one  sector,  up  to  one  whole  track  at  a 
time.  For  multi-sector  reads,  tlie  pattern  of  one  stiitus  byte 
followed  by  one  sector  of  datji  bnes  is  repeated  for  tlie 
specified  number  of  sectors.  If  you  sp)ecif\'  more  sectors  to 


read  than  arc  contained  on  one  track,  the  d;ita  fixjm  tlie  same 
track  win  be  read  over  again  until  the  specified  number  of 
sectors  have  been  sent. 

The  burst  WRITE  SECTOR  command  is  somewhat 
aruilogous  to  die  standiird  Commodore  DOS  Block- Write:  (b- 
w:  or  u2:)  command.  Unfortunately,  there  is  no  FAST  .SAVL; 
command  corresponding  to  the  burst  mode  FAST  LOAD 
command  which  would  allow  you  to  write  an  entire  file  in 
burst  mode.  Similar  to  most  other  burst  mode  commands,  the 
write  command  will  work  with  cither  MFM  or  GCR  disks. 

The  burst  write  is  also  iaster  than  normal  KERNAl.- 
controUed  writing  to  the  1571,  although  the  diflerence  in 
speed  is  not  as  great  as  the  difference  in  reading  speeds.  The 
average  speed  for  a  burst  write  using  256  byte  sectors  is  about 
600  bytes  per  second.  The  corresponding  figure  in  normal 
1 571  mode  is  about  400  bytes  per  second  and  in  1 54 1  m<xle 
it  is  about  300  bytes  per  second.  In  1 571  and  burst  modes,  the 
write  speeds  are  a  factor  of  3  to  5  slower  than  the 
corresonding  read  speeds. 

Similar  to  the  burst  READ  SECTOR,  burst  write  can  also  be 
used  to  write  multiple  sectors  in  succession  (up  to  one  track's 
worth).  It  should  be  noted  Uiat  if  you  spccift-  more  sectors  to 
write  tlian  are  in  one  track,  the  command  will  keep  \s'riting 
data  over  the  same  track  until  the  sp)ecified  number  of  sectors 
have  been  written.  This  could  result  in  a  hopelessly  corrupted 
disk  if  you  are  not  careful. 

One  good  application  of  muld-sector  burst  reads  and  vwites 
is  a  disk  copier  where  a  large  number  of  sectors  are  read  fix)m 
a  source  disk  then  written  to  the  corresponding  locatioas  on  a 
new  disk. 

Both  the  READ  SECTOR  and  WRITE  SECTOR  commimds 
have  several  very  useful  options,  one  of  wliich  iiUows  die 
transfer  of  data  through  die  normal  disk  command  chtumel  in 
either  BASIC  or  machine  language  using  the  Commodore' 
DOS  m-r  (memory  read)  and  m-w  (memory  write)  commands 
to  directiy  access  the  data  buffer  in  the  1 571. 

The  order  that  multiple  sectors  are  read  or  viTitten  widi  the 
above  commands  can  be  changed  using  the  SET  SECTOR 
INTERLEAVE  command.  The  defiitilt  interleave  I  corresponds 
to  contiguous  sectors.  That  is,  if  you  started  at  track  1 0,  sector 
1  and  read  3  sectors,  you  would  read  sector  1  then  2  tlien  3.  ff 
you  changed  the  interleave  to  3,  you  would  read  sector  1  tlien 
4  then  7.  Standard  Commodore  DOS  has  an  interleave  of  10 
(except  for  the  directory,  track  18,  which  has  an  interleave  of 
3).  The  128's  CP/M  has  an  interieave  of  5,  while  most  MF"M 
disks  do  not  use  software  interleaves. 

There  are  some  optional  parameters  in  the  buret  mode 
FORMAT  command  which  allow  you  to  partially  format  a 
disk,  format  different  areas  of  the  disk  in  a  different  manner, 
change  the  sector  slew  rate,  and  change  the  fill  byte. 

Many  of  the  commands  will  return  a  value  called  the  status 
byte.  This  byte  has  the  same  structure  in  most  cases.  A  bit-by- 
bit  description  is  provided  in  the  1571  disk  drive  manual.  In 
general,  the  low  order  4  bits  represent  the  status  of  the  disk 
controller  A  decimal  value  of  0  or  1  for  these  four  bits 
indicates  that  everything  is  fine.  Any  other  value  indicates  a 
controller  error  as  listed  in  the  1571  manual. 

The  high  order  4  bits  arc  lised  for  MFM  disks,  ff  bit  7  is  set, 
then  the  disk  is  MFM  format.  The  remaining  bits  give  data  on 
the  number  of  bytes  per  sector.  The  status  can  be  checked  at 
any  time  using  the  ENQUIRE  STATUS  command. 

Continued  on  l)g.  IN 
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Ihterfaciiig 


User  Port 


MRTl 


Vjonnecting  a  computer  to  an  external  device  or  cir- 
cuit  is  known  as  interfacing.  Interfacing  controls,  reads 
or  exdianges  data  fixim  your  computer  to  an  external 
de\  ice,  circuit  or  anotiier  computer,  Apiilications  ninge 
from  controlling  a{5plianccs  and  clecuxMiic  devices  to 
computer  securirs'  systems,  ixibotics  and  biofeedback 
devices.  Or  have  the  computer  monitor  and  react  to 
liglit,  soimd,  temperature,  pressure  iuid  vibrations,  llie 
applications  are  limited  only  by  your  inii^ination. 

Commodore  engineers  ha\'e  Ix'en  ver\'  generous  in 
tlicir  design  of  computers,  iUlowing  usci^s  access  to  var- 
ious input/output  (I/O)  ports.  This  is  just  one  reason  for 
CommtKlore's  tmmease  popularirv'. 

Our  concentration  will  focus  on  ilie  user  port  located 
at  the  back  of  the  VIC  20,  Commodore  64  and  128. 
These  computers  all  have  simihu-  u.scr  ports  (see  Dia- 
gram A)  that  fiinction  basicull)'  the  s;imc. 

We  wHl  be  accessing  port  B  of  tlie  user  port  labeled 
PBO  througli  PB^.  llii-s  is  an  ciglit-liit  parallel  port.  Eacli 
bit  on  the  port  is  bi-directional  ;uid  is  programable  as  ci- 
ther an  input  or  output  bit.  Each  bit  on  the  port  can  also 
be  programmed  independently  fk»m  all  the  other  bits. 

6526  Chip 

(",ommodore  computers  use  ;m  integi~ited  circuit  cliip 
benveen  die  central  processing  unit  (CPU)  aiid  tlie  L'O 
ports.  Tlie  64  and  128  use  a  6526  CIA  (complex 
interface  adaptor)  diip.  Tlie  \1C  20  uses  a  6522  VTA 
(versatile  interface  adajDtor)  cliip.  In  order  to  avoid 
confusion,  further  descriptioas  of  die  6526  CLA  chip  will 
be  the  only  one  given,  and  should  Ix:  assumed  to  be  tlie 
same  for  the  6522  chip  unless  otlierwm'  noted. 

All  input  and  output  functions  are  tntnsmitied  b\'  tlie 
CIA  ciiip  to  the  micro-prcKCSSor  CPl'.  Each  6526  CL\ 
cliip  contains  r^s'o  parallel  eight-bit  I'O  ports,  t\\'0  1 6-bit 
counter/timers,  clock  and  a  serial  shift  register.  The  chip 


is  rcsp<5nsible  for  the  60  HZ  intenipt  routine,  ke^'toard 
scanning,  game  port  reading  iuid  serialized  data  input. 
We  will  leani  to  u.se  the  timers,  interupt  routines 
serialized  data  input  later  ofi  in  tlie  series.  For  now  we 
will  concentrate  on  basic  llinctioas. 

All  accessing  of  our  user  port  is  tlirou^  the  6526 
chip.  To  access  diis  ciiip  we  must  be  alMe  to  set  and  read 
various  bits  on  die  chip  registers,  lliis  isn't  as  difficult  :ls 
it  may  sound,  hut  it  does  require  a  basic  understiuiding 
of  the  binary  number  system. 

Binary 

Binary  meaiis  "based  on  two."  :ls  in  two  numlxrs,  0 
and  1.  Or  like  an  electrical  switch  Uiat  lias  two  values  off 


^ 


In  Part  1  of  this  series  on  how 
to  make  the  user  port  workfc 
you,  we  will  build  an  LED 
project  board  for  the 
VIC  20,  Commodore  64 
and  128. 


BY  JOHN  lOVlNE 


(0 )  and  on  (  1  )•  •"  binar)-  a  digit  is  called  a  bit,  which  stands  for 
binary  digit  A  byte  is  a  digital  expression  containing  eight  bits. 
The  microprocessor  used  in  die  computers  we're  woridng 
with  are  ei^t-bit  microprocessors. 

Since  this  ;uticlc  is  on  interfacing  the  aser  p<jrt,  we  will  in- 
vcsdgate  the  binary  relatioasiiip  to  contn)Uing  N'arious  I/O 
functions.  All  the  information,  however,  Ls  applicable  to  con- 
trolling other  chips  in  CommcKlore  computers.  A  fiiller  under- 
standing of  binan'  number  system  can  be  acquired  by  reading 


any  of  the  many  lxx)ks  available  on  machine  language. 

As  seen  in  Table  1,  for  each  progression  of  the  binan'  1  to 
the  left,  the  power  of  2  is  increased  by  1.  These  are  relevant 
numbers  Ixxause  e;ich  progre-ssion  identifies  a  bit  location 
and  weight.  Notice  the  conelation  between  the  user  port  and 
bit  weiglit  table;  we  will  be  usiiig  this  oftea 

Table  2  demoastrates  binary  counting  0  thru  20.  This  chart 
comes  in  handy  later 

When  a  bit  in  the  port  is  configured  for  input,  the  computer 
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Table  2 


Decimal 

Binary 

0 

=  00000000 

1 

=  00000001 

2 

=  00000010 

3 

=  00000011 

4 

=  00000100 

5 

=  00000101 

6 

=  00000110 

7 

=  00000111 

8 

=  00001000 

9 

=  00001001 

10 

=  00001010 

Decimal 

Binary 

11 

=  00001011 

12 

=  00001100 

13 

=  00001101 

14 

=  00001110 

15 

=  00001111 

16 

=  00010000 

17 

=  00010001 

18 

=  00010010 

19 

=  00010011 

20 

=  00010100 

255 

=  11111111 
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uses  electrical  voltages  present  at  the  pin/bit  to  determine 
whether  that  bit  is  set  (on)  1  or  clear  (oflF)  0.  A  binary  I  is 
equal  to  a  voltage  level  between  2  and  5  volts.  A  binary  0  is 
equal  to  a  voltage  level  between  0  and  0.8  volts.  Voltages  be- 
tween 0.8  and  2  volts  are  undefined 

When  a  bit  in  the  port  is  configured  as  an  output,  the  com- 
puter will  output  five  volts  when  a  binary  1  is  placed  at  the 
pin/bit  location  or  zero  volts  when  a  binary  0  is  placed  at  the 
pin/bit  locatioa 

DDR 

The  DDR  (data  direction  register)  is  a  programmable 
register  on  the  6526  chip  that  controls  the  direction  of  the 
bits  in  the  port  (input  or  output)  A  binary  1  placed  at  a  bit 
kxsition  will  turn  that  bit  into  an  output  bit  Conversely,  a 
binary  0  will  make  that  bit  an  input  bit 

The  DDR  occupies  one  byte  in  memory.  The  location  of  the 
DDR  for  port  B  on  tlie  user  port  is  56579  for  the  64  and  128, 
For  the  VIC  20,  the  DDR  location  is  37138. 

"We  use  our  bit  weights  (Table  1 )  to  output  binary  I's  at  the 
corre^x>nding  pins  to  create  output  pins.  Any  pins  that  aren't 
programmed  as  outputs  automatically  have  O's  placed  at  their 
bit  location  and  are  therefore  configured  as  input  pins  (Table 
2).  POKE  56579,20  would  turn  PB2  and  PB4  into  output  bits, 
as  PB0,PB1,PB3,PB5,PB6  and  PB7  automatically  become  input 
bits. 

To  see  this  more  clearly,  transfer  the  binary  equivalent  of  20 
(Table  2)  into  the  empty  register  location  spaces  on  Table  1. 
The  binary  I's  are  in  PB2  and  PB4  bit  locations. 

POKE  56579,3  makes  PBO  and  PBl  output  bits  transfer  the 
binary  equivalent  of  3  into  the  location  spaces.  Doesnt  the 
number  3  in  binary  place  binary  I's  at  the  location  of  PBO  and 
PBl?  As  you  can  see  by  poking  this  location  with  various  bit 
wei^ts,  we  can  configure  any  pin  in  the  port  to  be  an  input  or 
output  bit  in  any  combination  we  mig^t  require.  Any  imused 
bits  can  be  ignored. 

To  summarize,  poking  a  binary  1  in  the  DDR  coniesponding 
to  a  bit  turns  that  bit  into  an  output  bit  Conversely,  poking  a 
binary  0  will  turn  the  bit  into  an  input 

Peripheral  Data  Register 

After  we  have  configured  our  port  with  the  DDR,  we  can 
start  using  it  The  peripheral  data  register  memory  location  is 
56577.  This  is  where  we  poke  and  peek  to  input  or  pull  data 
oflF  the  pins. 

The  procedure  is  similar  to  the  one  described  for  the  DDR. 
We'll  go  into  gtater  detail  after  we  build  our  demonstration 
circuit 


Input 

Examine  the  diagram  of  the  user  port  again  (Diagram  A). 
Beneuh  the  user  port  are  labels  PBO,  PB 1,  PB2,...  PB7 
corresponding  to  the  pins  on  the  user  pwrt  Under  that  is  the 
corresponding  bit  wei^t  for  each  pin. 

Now  let's  configure  all  the  bits  on  the  port  as  inputs. 
POKE  56579,0    DDR  places  binary  O's  at  all  bit  locations. 

Now  we  apply  -f  5  volts  tcj  pins  PB2  and  PB4.  By  applying 
the  5  volts  to  these  pins  we  are  inputting  a  binary  1  at  each 
pin.  If  we  then  peek  the  (XJrt 

PRINT  PEEK(  56577)     Peripheral  Data  Register 
the  number  20  would  be  returned.  This  is  the  added  bit 
wei^ts(4  -I-  16  =  20)ofpinsPB2  4-  PB4.  Look  at  Table  2. 
Transfer  the  binary  equivalent  of  the  number  20  into  the  bit 
locations  on  Table  1  and  it  is  the  same.  The  binary  I's  are  in 
the  same  bit  positions  we  inputted.  If  we  applied  +  5  volts  to 
just  PB5,  then  peeked  the  jxjrt,  the  number  32  would  be 
returned  This  is  true  for  all  pin/bit  combinations. 

Ou^ut 

Let's  reconfigure  our  user  (xjrt  so  that  all  the  bits  are  now 
ouqjuts. 

POKE  56579,255     DDR  places  binary  I's  at  all  bit  locations. 
Now  poke  the  number  20  into  the  jxjrt 
POKE  56577,20       Peripheral  Data  Rc-^ter 
What  do  you  think  will  happen?  If  you  reasoned  that  -I-  5  volts 
would  appear  on  PB2  and  PB4 — you  arc  rig^t!  By  poking  the 
number  20  into  the  port,  we  are  essentially  outputting  a 
binary  1  at  those  two  pins. 

It  is  important  to  understand  that  the  voltage  being 
outputted  is  a  signal  voltage  and  has  very  little  power 
Therefore  it  cannot  be  used  to  run  a  device.  But  by  adding  a 
simple  circuit  described  later,  you  can  use  that  signal  to 
control  most  any  electrical  appliance  you'd  like. 

If  you  feel  a  little  confiised  at  this  point  don't  worry.  It  will 
all  come  together  very  quickly  once  you  gain  some  practical 
experience  by  experimenting  with  the  port  In  order  to  do 
this,  you  will  need  to  build  the  demonstration  circuit 

Circuit  Construction 

Look  at  Figure  1 .  This  is  a  simple  circuit  that  doesn't  require 
much  soldering.  Most  of  the  soldering  has  been  eliminated  by 
using  an  cxperimentors  plug-in  breadboard  By  using  this 
board  we  can  simply  plug  in  our  components  and  cx)ntrol 
lines.  This  board  also  fecilitatcs  changing  the  circuit  by  being 
able  to  pull  out  the  components  and  replacing  them  with 
different  ones. 


Parts  List 


Quantify  Item 

6         Subminialure  Red  LED 
1         Breadboard 


Manutacturer 

Radio  Shack 
Radio  Shack 


1 


1 2/24  Cord  Connector     Mouser  Electronics 


Part  Number 

276-0266 
276-175  or 
276-174 
568-50-24A-30" 


"Available  @  $3.69  from  Mouser  Electronics 
11433  Woodslde  Ave. 
Sanlee,CA  92071 
(619)  449-2222 
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All  the  parts  rct|iiircd  arc  avidlablc  at  your  kx::d  li;idio  Sli;ick 
Store,  except  for  tlic  1 2/24  card  connector.  'IliLs  Ls  availalik- 
from  Moiisscr  Electronics  (sec  Purts  list ).  ^'oii  cjin  utilize  a  -44- 
pin  connector  that  is  a\:iilahle  at  R;idio  Sliatk  by  cutting  off 
one  end,  leaving  1 2  pins. 

Take  care  in  making  your  solder  connection  to  tlie  card 
connector.  Notice  tliat  in  addition  to  .soldering  wires  to  our 
data-port  pins,  wc  liave  also  taken  a  Ic-ad  off  an  additional 
ground  pin  and  the  +  5  volt  pin.  These  lines  will  Ix-  useflil 
later  on. 

I>o  not  substitute  the 
IJ:1)s.  Ilie  l.l-:i>i  used  :irc 
micro-  miniature;  these 
were  choscii  because 
thcT  dont  require  much 
power  ;ind  c;ui  tx'  lit 
directl)  from  tlie  current 
available  at  tile  port 
When  you  have 
completed  tJie  soldering 
and  wmxl  tlic  circuit  as  shown,  we  are-  re-ady  to  continue. 
Turn  off  your  computeT  (if  it  is  on )  ;md  plug  tJie  cird 

connector  into  the  usct 
port.  Power  up  your 
computer  All  tlic  LEDs 
should  be  dimly  lit.  If  they 
;ire-  not,  tuni  off  the 
computer  imnKdi;uel\ 
because  you've  made  a 
wiring  error  Rechcck  your 
wiring  iuid  m;ike  sure  the 
Mll'is  ;ux.'  in  pniperly, 
facing  the  riglit  polarity.  The  re-.LSon  tlie  iJ'.l>i  :ire  dimly  lit  is 
tiKtt  althouj^  the  computer  configure-s  :ill  bits  ;ls  inputs  on 
power  up,  the  6526  diip  pulls  the  bits  to  five  volts  through  a 
1  OK  register.  There  is  sufficient  current  to  only  dimly  light 
tlie  LEDs. 

ff  e^'erything  checks  out  you're  re"ady  to  continue.  Enter 
POKE  56579.255     Set  up  DDR.  This  aims  aU  tJic  bits  to 

output  bits. 
POKE  56577,20       Pcriphcnil  d:ita  re-gister  lites  IJiDs 

connected  to  PB2  and  PB-i. 
POKE  56577,0         Turres  off  IJ^IX 

In  order  to  become  fami!i;u-  v\itli  tlic  bit  weiglits  and  their 
correlation  to  the  pirts,  type  in  tliLs  simple  prognun.  Any 
number  you  input  will  light  the  LEDs  ct)rresponding  to  tiic  bit 
weight. 


10  POKE  56579,255 

20  INPUT" [D0WN4]  INPUT  BIT  WEIGHT  ";BW 

30  PRINT" [CLEAR, D0WN4] THE  NUMBER"BW" 

IS  BEING  DISPLAYED  IN  BINARY  ON 

YOUR  INTERFACE" 
50  POKE  56577, BW 
60  GOTO  20 


10  POKE  56579,255 

20  FOR  X=0  TO  255 

30  POKE  56577, X 

40  FOR  T=l  TO  255:NEXT  T 

50  NEXT  X 

60  GOTO  30 


POKE  56579,15 


We  now  have  some 
cx]X.Tience  cnitputting 
bin;in'  !  's.  Now  let's 
rex-onfigurc  the  port  First 
turn  oft'  the  ci>mputer 
Remo\'c  the  four  IJiDs 
connected  to  I'B-i  tliru 
■  Pin  and  replace  it  with 
^^^^^^^^M  the  four-position  dip 

switch  (sec  photo).  I^ntcr 
DDR  set-up  configure-s  PBO  thru  PB3  as 
outputs;  PB'i  tlin)ugli  PB7  as  inputs. 


Turn  all  the  .switches  on.  Enter  PRINT  Piax  (56577)  and  a  0 
will  be  returned.  Turn  oft'  the  s-witch  connected  to  PB4  and 
reenter  PRINT  PEEK  (56577)  ;(nd  now  the  number  16  has 
been  re'tiimcd. 

You  should  know  by  now  tlut  the  numbcT  16  represents 
the  bit  weight  for  that  pia  But  the  question  re-mains,  'Why  Ls  it 
thiit  when  you  turn  tlie  switch  off  that  the  computer  reads  a 
binary  1  at  the  bit  location?"  Tlie  juxswcr  Ls  tlie  same  as  why 
the  LEDs  are'  dimly  lit  u|»n  |X)wer  up.  Wlien  our  switch  is 
tumc"d  on,  it  Ls  connected  to  and  pulled  to  ground  (t)  \olts). 
When  the  switch  is  turned  off,  tlie  line  Ls  pulled  up  to  -I-  5 
volts  (binar)'  1 )  by  the  6526  chip  tliough  a  lOK  OHM  resistor. 
To  become  more  comfortable  witli  inputting,  enter  the 
following. 


10  POKE  56579,15 
20  D=PEEK(56577) 
30  PRINT" [CLEAR, RIGHT7,DOWN7] 

"D  "THIS  IS  THE  BIT  WEIGHT  OF  YOUR 

INTERFACE" 
40  GOTO  20 


By  turning  various  switches  on  and  off',  tlie  bit  weights  are 
displayed  on  tlie  scre-cii.  Ix-t's  do  sometliing  a  iiide  interesting. 
Pre^  the  RUN«TOP  key  iind  enter  POKE  56577,5.  Hie  IJiDs 
connected  to  PBO  and  PB2  are-  lit.  Enter  RLIN  and  notice  diat 
the  bit  weight  of  5  is  added  to  tlie  display. 

Now  let's  try  something  a  litde  more  interesting.  Enter  the 
following  program.  When  bit  8  (dip  switch  connected  to  PB7) 
is  turned  on,  the  LEDs  eonneaed  to  PBO  to  PB3  will  stitrt 
counting  No  other  bit  has  any  eftect.  ThLs  is  accomplished  by 
masking  all  bits  except  bit  8  and  re"ading  its  bit  weight. 


This  second  program  will  count  in  binary.  To  m:ike  it  run 
fester  or  slower,  ctiange  the  value  of  Taccordin^y  To  count  to 
a  value  less  than  255.  change  X  accordin^y. 


10    POKE    56579,15 
20    FOR    X=0    TO    15 


Continued  on  pg.  106 
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Only  NRI  teaches  you  to  service  all  computers 
as  you  build  your  own  fully  IBM;, 
compatible  microcomputer 


With  computers  firmly  established  in 
offices— and  more  and  more  new 
applications  being  developed  for  every 
facet  of  business-the  demand  for 
trained  computer  service  technicians 
surges  for^'ard.  The  Department  of 
Labor  estimates  that  computer  ser\'ice 
jobs  will  actually  double  in  the  next  ten 
years— a  faster  growth  rate  thcji  for  any 
other  occupation. 

Total  systems  training 

No  computer  stands  alone. . . 
it's  part  of  a  total  system.  And  if 
you  want  to  learn  to  service  and  repair 
computers,  you  have  to  understand 
computer  sys  ferns.  Only  NRI  includes  a 
powerful  computer  system  as  part  of 
your  training,  centered  around  the  new, 
fully  IBM-compatible  Sanyo  880  Series 
computer, 

As  part  of  your  training,  you'll  build 
this  highly  rated,  16-bit,  IBM-compatible 
computer  system.  You'll  assemble 
Sanyo's  "intelligent"  keyboard, 
install  the  power  supply  and  disk 
drive  and  interface  the  high- 
resolution  monitor.  The  880 
Computer  has  two  operating 
speeds:  standard  IBM  speed 
of  4.77  MHz  and  a  remarkable 
turbo  speed  of  8  MHz.  It's  con- 
fidence-building, real-world 
experience  that  includes  training 
in  programming,  circuit  desip 
and  peripheral  maintenance. 

No  experience  necessary— 
NRI  builds  it  in 

Even  if  you've  never  had  any  previous 
training  in  electronics,  you  can  succeed 
with  NRI  training.  You'll  start  with  the 
basics,  then  rapidly  build  on  them  to 
master  such  concepts  as  digital  logic, 
microprocessor  design,  and  computer 
memory.  You'll  build  and  test  ad\'anced 
electronic  circuits  using  the  exclusive 
NRI  Discover}'  Lab*,  professional  digital 
multimeter,  and  logic  probe.  Like  your 
computer,  they're  all  yours  to  keep  as 


part,  of  your 
training.  You  even 
get  some  of  the 
most  popular  software,  including  W'ordStar, 
CalcStar,  GW  Basic  and  MS  DOS. 


Send  for  100-page  free  catalog 

Send  the  coupon  today  for  NRI's  100- 
page,  full-color  catalog,  with  all  the  facts 
about  at-home  computer  training.  Read 
detailed  descriptions  of  each  lesson, 
each  experiment  you  perform.  See  each 
piece  of  hands-on  equipment  you'll  work 
with  and  keep.  And  check  out  NRI 
training  in  other  high-tech  fields  such 
as  Robotics,  Data  Communications, 
TV/ Audio/  Video  Servicing,  and  more. 


SEND  COUPON  TODAY  FOR  FREE  NRI  CATALOG! 
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Universal 
Program  Lister, 


Parti 


In  Part  1  of  this  two-part 
series,  the  history  of 
Commodore  BASIC  reveals 
u'lyy  BASIC  programs  on  one 
Commodore  computer  may 
not  list  correctly  on  another. 
Part  2  features  a  universal 
listing  routine  to  bridge  ttte 
gap  betiveen  computers. 


V^ommodorc  computers  ha\c  a  built- 
in  t;iblc  of  basic;  kc)-\vords.  'Ilic  tiible  is 
in  tiLimcric  order.  ;md  ;UI  iiunihcrs  arc 
higher  than  decimal  \1~.  I5ASK;  pro- 
gninis  arc  tokcnizcd.  which  mL-;uis  tliat  a 
word  such  as  INPLT  Ls  stored  not  as  five 
letters,  but  as  a  token  tliat  t;ikcs  up  only 
one  character  or  byte.  Tor  ex;unp!e.  IX- 
Pl'fs  token  niiiiiher  is  1^3  or  585  in 
hexadecimal  nutation. 

Table  1  groups  all  keywords  by  their 
numeric  token  \;iliies.  'line  \';iiues  arc  in 
hexadecimal  notation  Ixcausc  hex  num- 
bers t:ike  up  only  two  columns. 

Why  is  all  this  importiuit?  It  is  impor- 
tant l-Kcause  tokens  ;iffect  tlic  listing  ;uul 
entering  of  a  pn)gnim  into  a  computer 
diU'erenl  from  the  one  on  which  it  \\;\s 
writtcTi.  What  does  a  listing  n)utine  nor- 
mally do?  It  sees  a  number  such  ;ls  S85, 
goes  to  tJie  table  of  kei,A\ord.s,  subtracts 
S8t).  and  ends  up  uitii  5.  llie  last  letter  of 
e\cr\  kcy\\ord  in  tlie  table  is  shitted,  so 
e^■ery  time  tlicrc  is  a  shifted  letter,  it  indi- 
cates an  end  of  a  knword.  C^ount  the 
shifted  letters  anil  \-ou  get  a  key\\x)rd 
number  llie  listing  routine  tlien  prints 
;dl  tlic  letters  of  tlie  liftli  keyword  ( count- 
ing Ihmi  zero)  on  die  list,  which  is  FN- 

pir. 

'Iliis  is  useful  to  see  how  programs  iirc 
"crunchc"d"  wiien  a  prognim  is  entered 
into  a  computer.  Vtlien  \()u  ctxle  10  LN- 
PLIT  Z  ;md  push  KinHR.N.  die  screen 
editor  :uid  die  BASIC  cxiitor  go  to  work. 
'llie  editor  sees  a  number  10  and  takes 
care  of  it.  Then  it  sees  letters  l-N-P-U-  T. 
To  see  if  it  is  a  ke\-v\-ord,  tlie  editor  begins 


iJOBfRi  aajn 


Tokens  affect  the  listing  and  etttenng  of  a  pro- 
gram into  a  compute}'  different  from  the  one  on 
which  it  was  written 


scanning  die  kc■y^^■ord  table.  I!\ery  time 
it  stumbles  on  a  .shifted  letter  it  increases 
tlie  count.  l-i\e  hops  later  it  huitLs  on  a 
matching  set  of  letters,  our  LNPL  T,  It  as- 
signs a  \  alue  of  the  counter,  now  1 53  or 
S85  in  hex  ;uid  puts  that  in  memory. 

'Ihis  takes  a  bit  of  time.  'Hie  longer  die 
ke™-ord  table,  tile  more  time  it  t;ikes. 
On  the  Commodore  128  the  time  is 
quite  noticeable.  What  if  die  list  is  ex- 
hausted? It  c;ui"t  be  a  key-word.  Tlie  com- 
puter lea\es  die  BASIC  text  intact  in  a 
fonn  of  iui  rVSc:iI  suing.  So  in  INPl  f  /.. '/. 
is  regarded  :ls  a  string.  likewise,  if  you 
coded  PRINT'some  string."  PRINT  gets 
tokenized  ;uid  whA's  in  quote-s  is  not.  Fi- 
n:Uly.  CiOSl  V,  5000  tokeni/es  the  ( i<  )Sl  li 
pan  ;uid  leave:>  5000  in  ,-\.SC;!I  fonn. 

Sup|iose  \ou  coded  on  die  (Commo- 
dore 6  !  10()  IN'PfTAS:Il=AS  =  "N"  W  lEN 
DClI.OSli  and  planned  to  run  diis  code  on 
the  128.  What  a  mess!  "\bu'd  load  diis 
program  into  the  128  and  DCl.OSE 
would  do  nodiing  except  tell  you  of  a 
syntxx  ern)r  Vi'Iiy?  Because  die  6  i  has 
no  DC1.0SI:  ( close  ;dl  disk  files )  keyAvord. 
So  it  left  die  letters  D-C-L-O-S-E  as  :ui  .-VS- 
CII  string,  unchanged.  A  transfer  to  die 
1 28  dtK-s  not  ch;uige  tlie  string  into  a  to- 
ken corres|ionding  to  DC:i.()Si:,  resulting 
in  tlie  emir  mes.sage. 

How  to  iiKike  it  work  in  luiodier  com- 
puter? Simple — kx:ate  tlie  line  in  tniuble 
:uid  pu.sli  Rl-'Il  'R.\.  nie  instant  you  push 
RETllRN,  line  100  will  be  tokenized  in 
the  host  computer  and  DCI.OSI:  he- 
comes  a  %~.ilid  token  SFE-OE  If  you  need 


more  changes  to  be-  matle.  iiiechanic;il 
means  ;ire  neces.s:iry. 

Paths  of  Keyword 
Development 

Now  let's  make  some  sense  out  of  all 
diis.  Once,  a  long  time  ago,  Cx)mni(x.lore 
built  die  PET  computer.  It  had  a  vocabu- 
lary of  iilxjut  '^■i  words.  Of  course,  since 
Uicn  diings  have  changed  and  computers 
have  many  more  words.  Look  at  the 
key"ftord  chart.  It  shows  lioxes  cont;iin- 
ing  li.sts  of  keyAvords  in  ;ill  C^l J.\l  comput- 
ers to  date.  'Ihe  original,  BASIC  1  Piv'f, 
knew  only  tlie  left-h:uid  side  column  of 
BASIC  keywords. 

The  PET,  VIC  20,  64,  B128/256 
Keyword  Path  (upper  half) 

life  was  simple  in  Commodore  land 
for  awhUe.  I^ire  B.-\SIC  programs  coukl 
move  from  one  machine  to  another 
widiout  utnible.  But  when  B.\SIC;  -t  Pl-Ts 
appcnired,  diings  cli;uiged  a  bit.  A  user 
witli  ;ui  original  or  BASK ;  2  PET  could  no 
longer  list  all  tlie  jirograms  diat  were 
written.  A  prognun  v\Titten  on  a  B.-VSlt:  4 
PET  had  keywords  the  earlier  PIlT's 
could  not  co;x-  \\idi.  Xl:XT\\ould  list  in- 
stead of  I5.VSIC  -ts  lX;i,OSE. 

ScK)n  pn)gnuns  like  Jim  Butteriields 
Lister  appeared  on  die  scene  to  lielji  lls- 
ers  list  tlic  "foreign"  ]irogram.  Once  die 
user  got  a  sensible  listing,  he  or  she  was 
iLsuiilly  able  to  convert  die  pn)gr;mi  to 
run  on  the  older  PETs. 
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To  this  day.  the  \'ocabiilar\-  of  tlic  PI"!", 
Commodore  64  ;ind  die  \'IC;  20  is  dial  ot 
BASIC  2  PtTs,  which  includes  kcv'vvords 
from  ttie  originiil  PH*!'  ( left-h;uid  coliinm ) 
and  tlic  ke\-\vord  (it).  B.JlSK:  -i  in~V  com- 
puters have  additioniil  key-words,  with 
numhers  scqucntiiiUy  higlicr  than  (it) 
(top  h;ilt  ol  tile  chart),  kew'ords  num- 
bered SCC;-DA,  or  words  CONVAT  to  1)1- 

Tlic  ftinious  Protecto-six-ci:(!  15 1  28  iiia- 
cliine  has  die  richest  kuiguage  in  that 
group.  It  contiiins  keywords  nunibcred 
SDB  to  R8.  or  DCIJ-AR  to  LNS'lli.  Ilie  H- 
machine  key'words  ;ire  unknown  in  tlie 
BASIC  4  PETs  ;md  cause  similar  [mjh- 
lems  to  the  DCLOSE  cx;implc. 

Still,  tlic  keyword  boxes  shown  on  top 
of  tlie  picuiR-  show  diat  die  dc\elop- 
ment  w;ls  line;ir.  diat  is.  nc-w  kcy\\()rds 
were  added  at  tile  end  of  die  existing  li.st. 
This  design  pemiiLs  people  to  move  pro- 
grams from  one  computer  to  another 
witli  little  difficulty.  IsiialK-,  just  a  little 
bit  of  conversion  is  needed  to  make  pro- 
grams work  in  other  computers  once 
you  liave  an  accurate  listing. 

The  64  Expander  Pafli  (from 
PET  to  upper  right-haiid  side) 

One  exception  to  die  lineitr  ex|XUVsion 
was  tlic  addition  of  (iomnnxlore's  Super- 
Expander  cartridge  for  tile  6-1.  Ilie  next 
a%ailablc  token  number  would  have  been 
SE9.  but  instead  Commodore  created 
double  tokens.  See  the  SFE  list  on  tlie 
right-hand  side  of  the  chart  in  the  up;xT 
portion.  These  kej'words  cause  pniblems 
in  the  PETs  and  die  B-niadiine. 

Listing  a  prognun  containing  die  l-'E 
key^words  on  an\'  of  die  PETs  relati\es 
produces  garbage:  'Ilie  SM-;  character 
prints  as  a  graphic  quart er-stiiuire,  fol- 
lowed by  cursor  down,  a  space,  a  color 
change  in  the  c:Lse  of  die  64  or  \'IC  21) 
and  so  on.  It  ;UI  depends  on  diat  number 
:ifter  SEI-;, 

llic  PET  line  of  computers  w;ls  not 
equipped,  to  handle  doulile  tokens, 
These  numbers  basically  become  control 
characters  and  cause  an  unreaLlable 
mess.  Of  course,  ;m  exp;uitler  pnignun 
ciumot  run  in  aii)-  non-exp;uidilile  com- 
puter. 

The  Plus/4  and  128  Keyword 
Path  (lower  half) 

In  198-1  tlie  Piusi  entered  die  scene. 
It  has  a  huge  v(K"abular\'  to  supj'Xjrt  ;ill 
die  fetitures  die  64  had.  but  lacks  the 


To  this  day,  the 
vocabulary  of  the  PET, 
Commodore  64  and  VIC 
20  is  that  of  BASIC  2 
PETs 


keywords  for  sound  ;uid  graphics,  xs  wx"ll 
its  disk  commands  similar  to  BASIC  4 
PETs. 

Now  you'd  diink  diat  die  new  graphic 
:ind  sound  kc) "words  wotild  go  at  die  end 
of  die  list  (after  SE9).  ^bu'd  also  diink 
diat  key-words  common  with  Bi^SK!!  4 
PETs  and  the  B-machines  would  have 
die  saime  token  numhers.  Neither  is  true. 
We  now  enter  a  new  padi.  a  lateral  di\er- 
sion  (see  lovv'er  half). 

In  the  sec  column,  there  are  two 
ke\-words:  RGR  ;ind  RCLR  In  die  PETs 
patli  we  saw  CONCATand  DO  PEN.  So  if 
\ou  load  a  BASICS  4  PET  program  diat 
•opens  a  file  using  die  DOPExN  conini;uid 
into  die  P!us4  computer,  it  lists  xs  RCIJt; 
same  token  number.  It  \\'l11  not  open  files 
;uid  most  likely  will  return  a  syntax  ern)r 
since  RCLR  needs  pimmieters  different 
flnonidioscofDOFEN. 

'Ilie  original  program  meant  to  open  a 
file.  Can  a  user  of  a  Plus^  4  or  128  com- 
puter DOPEN  a  file  using  a  BASIC  4  Pl-T 
program?  ^bu  bet.  Just  edit  RCLR  to  DO- 
PEN. push  RinVRN.  :uid  you're  in  bu.si- 
ness.  From  nov\-  on  this  is  a  genuine 
Plus'4  program.  However,  this  .sort  of  a 
comersion  in  a  long  program  is  a  beiLst. 
^bu  lia\e  to  have  a  con\ersion  ch:ul  in 
h;uul,  ;md  you'll  have  tt;  edit  loLS  of  lines. 

In  column  S(;i:  our  padis  diverge  lat- 
endly  once  again.  'Ehc  Flus'4  takes  die 
upper  route  \ia  RII M.  'I'he  1 28  takes  die 
lower  padi  \ia  a  table  of  several  double 
tokens.  SCE  tokens  ;ire  most  complicat- 
ed to  deal  widi.  In  die  entire  C\\\\  line 
we  see  diree  \;iriations  in  diLs  gn)up:  PET 
4,  Plus4  and  1 28.  As  was  die  case  widi 
the  expander  programs  SCE  double  to- 
kens of  die  128  list  flinny  in  odicr  com- 
puters. Once  again  control  characters 
c;in  kUl  you. 

By  the  time  we  reach  the  SCF  column, 
the  Pius  4  and  128  paths  merge  into  a 
Luge  group  of  the  common  key-svords 
JOY  to  WllllJi.  or  SCE  to  ED.  So  here,  at 
IciLst.  i'lus'4  ;uul  128  speak  a  common 
huiguage.  But  die  Uuiguage  Ls  incompati- 
ble widi  die  PETs  t\pe  of  kcy-wortls  in 


several  respects.  ITiCT  do  not  list  correct- 
ly, of  course,  and  die  host  computer  can 
even  crash.  If  a  program  containing 
keyword  nunitxT  SE9  (SC\IJ£)  is  loaded. 
B/\SK;  >i  PEri'and  die  B-niachine  go  bye- 
bye.  KL-\T.vords  higlier  on  the  list  di;ui 
SE9  dt)  not  cau.se  a  crash. 

/\nd  finally,  die  Plu.V4  repertoire  may 
include  on  a  c;irtridge  custom  key%vords 
widi  number  SI-'E  in  die  first  position.  If 
diat  happens,  nodiing  c;ui  be  done  unless 
everybody  has  die  cartridge.  In  any  case, 
Plus/4  ends  at  SFI>. 

'I'he  1 28  has  a  k)ng  Ust  of  keywords  in 
the  see:  double-token  group  (see  the 
lx)ttoni  rigtit-hiuid  side  column),  '^'ou'd 
diink  diat  diere  miglit  be  some  corre- 
spondence to  die  64  expander  c-artridge 
keywords  in  die  same  SFE  column,  but 
there's  not.  The  64's  KE\'  will  list  as 
BANK  on  die  1 28  ( or  it  wont  Ust  at  ;ill ), 
Tlie  1 28's  RSPPOS  (  SCE-05 )  corresponds 
to  die  64's  SE-E-9E. 

It  is  surprising  how  well  many  pro- 
grams mo%e  from  one  computer  to  ;ui- 
other,  especiiiliy  because  the  potential 
for  conliision  is  st)  great.  Here  are  just 
some  examples  of  \\'hat  can  happen. 

A  BASIC  4  PET  program  containing 
COLLECT  (  SDl  )  lists  as  DEC  in  the 
Plus/4.  Converseh',  DEC  in  die  128  lists 
as  COLLECT  in  die  BASIC  4  PET  or  B-ma- 
chine. 

A  Plus/4  program  containing  COL- 
lJ:Cr  (  SF3)  lists  as  garbage  and  will  not 
C:01Ji-:CT  an\ditng  in  die  R^SIC  4  PE T 
or  B-machine.  R;r  diat  we  need  kev-word 
numIxT  SDI. 

Ilie  B-machines  LNSTR  (  SE8),  a  string 
function,  lists  as  SCXCLR  (screen  clc^ar) 
in  the  Plus/^.  Chances  are  that  a  B-pro- 
grani  loaded  into  a  Plu.s/4  will  acaially 
clear  die  screen  and  give  a  s-\ntax  ern)r 
on  die  parameters  of  die  INSTR  com- 
mand. 

Plus/4's  INSTR  is  ke\-word  SD4.  It  will 
list  as  APPEND  in  die  BASIC  4  PET  and  B- 
niachine. 

Ilie  128  APPIIND  is  kc>-WDrd  SFE-OE, 
a  double  token,  A  1 28  program  mo\'ed  to 
BASIC  4  PET  will  never  run  until  some 
graphic  garbage  representing  SFE-OE 
gets  changed  to  a  \\-ord  ;\PPEi\D. 

Need  1  say  more? 

Odier  Incompatibilities 

This  article  deals  primaFily  with 
key\vords.  But  there  are  other  things 
\\liich  prevent  compatibility-,  and  the 
pnjgram  intnxluced  in  part  2  does  not 
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80  end 

81  for 

82  next 

83  data 
64  input* 

85  Input 

86  dim 

87  read 
66  let 

89  goto 
8  a  run 
8b  if 

6o  restore 

Bd  gosub 

8e  return 

8f  rem 

90  stop 

91  on 

92  wait 

93  load 

94  save 

95  verify 

96  def 

97  poke 

98  print* 

99  print 
9a  cont 
9b  list 
90  clr 
9d  cmd 
9e  sys 
gf  open 
aO  close 
al  get 
as  new 
a3  tab( 
a4  to 
a5  fn 
a6  spc( 
a7  then 
a8  not 
a9  step 
aa  - 

a"b  - 

ac  * 

ad  / 
ae 
af 


COMMODORE  BASIC  KEYWORDS 


CG    ooncat 
cd    dopen 


ce    dclose 


cf  record 

dO  header 

dl  collect 

d2  backup 

d3  copy 

d4  append 

dS  dsave 

d6  dload 

d7  catalog 

dS  rename 

d9  scratch 

da  directory 


Pet4 
B128 
B256 


db  dclear 

dc  bank 

dd  bload 

de  bsave 

dl  key 

60  delete 

el  else 

e2  trap 

e3  resume 

e4  dispose 

e5  pudef 

e6  using 

e7  errS 

e8  instr 


8^28/256 


cb    go 


t  (pwr) 
and 


bO  or 

bl  > 

b2  = 

b3  < 

b4  sgn 

b5  mt 

b6  abs 

b7  usr 

b8  fre 

b9  pos 

ba  sqr 

bb  rnd 

bo  log 

bd  exp 
be 
bf 

c0  tan 

cl  atn 

c2  peek 

c3  len 

c4  strS 

c5  val 

c6  asc 

c7  ohrS 

c8  lefts 

c9  rights 

ca  midS 

ff  TrCpl) 


cos 
sin 


C64  +  exp 


Pet2,Vic 
C64  stop 

here 


fe-8Gi 
fe-81 
fe-82 
fe-83 
fe-e4 
fe-B5 

fe-ee 

fe-87 
fe-88 
fe-89 
fe-8a 
fe-8b 
fe-8c 
fe-8d 
fe-8e 
fe-8f 
fe-90 
fe-91 
fe-92 
fe-93 
fe-94 
fe-95 
fe-96 
fe-97 
fe-98 
fe.99 
fe-9a 
fe-9b 
fe-9c 
fe-9d 
fe-9e 


key 

color 

graphic 

scnclr 

locate 

scale 

box 

circle 

char 

draw 

gshape 

paint 

sshape 

tune 

filter 

sprdef 

tempo 

movspr 

sprcol 

sprite 

colint 

sprsav 

rbump 

rclr 

rdot 

rgr 

rjoy 

rpen 

rpot 

rspcol 

rsppos 


Plus4 

0-16 

C128 


S80-GA,  PF       CB 


ce    plum 

fe-02 

fe-03 
fe-04 

niter 
play 

e9 

scale 

fe-05 

tempo 

ea 

help 

fe-06 

movspr 

eb 

do 

fe-07 

sprite 

ec 

loop 

fe-oe 

sprcolor 

Plus4 

ed 

exit 
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db 
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ee 
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sleep 
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fQ 
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fe-Od 
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paint 

f2 
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append 
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13 
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f4 

copy 
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bsave 
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f5 
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d?   trap                   e4 
d8   tron                   e5 
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draw 

f3 
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f9 
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until 
while 
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Cross  development 
has  to  be  done  witb 
care  and  attention. 
If  you  plan  to  move 
programs  from  one 
computer  to  another, 
it  pays  to  learn  a 
little  about  the  other 
computer. 

deal  with  tlicm.  Tliesc  inckalc  tilings  lii<c 
sprites  in  a  compiitcT  tiiat  Ii;ls  none,  SID 
sound  in  a  conipiitfr  th;it  \r.\s  no  Sil) 
chip,  higli-rfsoliition  graphics  in  a  com- 
puter tliat  h;is  no  tiit-mapptd  display,  :uid 
wrong  POKli  or  PEHK  atldrcssc's  for  \;ir- 
ious  machines  (screen  start  lieing  the 
most  common  one ), 

U-ss  ob\'ious  exiunples  iiickitic  color 
assignments  in  PRlN'i' stiitemcnLs  in  the 
64  that  may  do  notliing  on  tlic  Pi:'!'  or 
may  make  a  mess.  For  inst:uicc.  "black" 
t\ped  in  as  a  graphic  on  tlie  6-i  will  cause 
BASIC  4  PET  to  [shift ]4:SC:  the  t|iK)te 
mode! 

Tliere  are  :ils(.)  graphic  pmlilems  like 
tlie  22-40-80  column  screen  widths.  Ilie 
PETs  backslash  shows  up  ;ls  lui  english- 
pound  on  all  non-  PET  computers.  Sonic 
character  sets  :irc  sligiith-  difterent.  And 
watch  strings  in  PRINT  statements:  Color 
assignments  are  different  hetween  the 
64,  128  and  Plus^^.  'llie  64  POKE  color 
statements  need  a  value  one  higher 
when  moved  into  the  Pkis/4  CX)I,()K 
commmid. 

Delay  loops  function  tlilierentl)'.  'Ihe 
VIC  20  is  the  quickest  machine  of  tlie 
whole  bunch;  tlic  Plu.'i'4  :ukI  128  ;u-e 
slow.  B-machines  ;ire  so  fxst  tliat  you  may 
need  to  adjust  die  timing  to  suit  a  pro- 
gram. 

There  are  differences  in  reserved  var- 
iables. ST  exists  in  all  computers.  Tl  ex- 
ists in  all  except  tlie  B-machine.  'I'l  S  is  sL\ 
digits  long  in  all  computers  but  die  U-ma- 
cliine.  \\-here  it  is  .seven  digits  long  ( time 
is  taken  from  tlie  cliip.  includes  ten-ot- 
seconds,  wliich  creates  a  knely  compli- 
cation in  all  programs  diat  depend  on  die 
)ifi\-  clock).  The^B.ASIC  2  PET,  64  and  \W. 
20  do  not  know  at-)out  BA.SIC  4  Plv  T  disk 
status  varialjles  DS  and  DSS  (you'll  need 
to  record  as  shown  in  die  disk  miuiujJ — 


open  channel  15  and  input  the  stiitus 
variables,  else  DS  is  always  zero  and 
you'll  ne\cr  catch  disk  errors!). 

DS  or  DSS  mo\ed  from  a  64  or  PET 
into  a  BASICS  4-tT,pe  computer  will  remm 
a  s\'ntax  error.  You'll  need  to  change  tlie 
n;unes  of  tliosc  variables  for  a  program  to 
nin.  None  of  diem  know  alx)ut  B-nia- 
chine's  ER.  EL  ERRS  reserved  \;iriables 
for  error  trapping  ;uid  so  on  ;uul  .so  tbrdi. 
C-ross  de\'ek)pnient  hiis  to  be  done  widi 
c;irc  ;md  attention  to  Uiese  small  items.  If 
you  phui  to  move  progriuiis  from  one 
computer  to  anodier,  it  pays  to  learn  a  lit- 
de  about  die  titlier  computer. 

But,  you  say,  iiow  can  I  possibh'  have 
;dl  die  manuaLs  uy  aU  the  other  comput- 
ers? No  need — K:trl  Hildon,  die  editor  of 
'I'lx  Tnnisiictor  hits  ]-)ublished  a  book  diat 
includes  preci.seh'  tlie  set  of  cross-  refer- 
ences wc  need  here.  The  book  is  Tije 
Complete  Commodore  Inner  Space  .4h- 
tbolog}'  ;uicl  reKiils  tVjr  SI 4,95.  The  ad- 


dress in  die  I  nited  States  is  T"'  Ijnwood 
Avenue,  Buttiilo,  N^^'  I  1209-9990.  !n  C;m- 
ad;(.  die  address  is  500  Steek-s  ,'\\enite, 
Milton,  Ontario  E9T5P~  <;anada.  The 
CanadiLUi  phone  number  is  4 16-8*'6-t''-4. 

\Miat  we  need  is  a  li.sting  prognim — 
one  diat  c;ui  list  a fi)reigii  prognun  .so  \ou 
c:in  stud)'  die  pn)gnunmer's  intention. 
Once  you  know  diat  die  128  pn)gram- 
mer  mc"iUit  to  APPEND  more  informa- 
tion to  a  file  on  disk,  you  c;ui  edit  die  silly 
Uxiking  vei^sion  of  die  progr;uii  on  die 
B/VSIC  (  PIVPs  screen  to  actually  say  AP- 
PEND, 

'llie  s;inie  prcx.edure  goe-s  tor  ;ill  die 
otlier  tokens  or  computer  combinations. 
A  go(X]  listing  progr;tm  is  defiiiiteh'  die 
key.  It  is  inv;iliiahle  to  user  gn)ups  who 
s^^'ap  programs  between  c<)m|xiters.  as 
well  as  to  jKople  who  de\'elop  prognuiis 
on  one  computer  to  nin  on  :inodier.  I'art 
2  of  Universal  Program  lister  includes 
this  program.  Q 


A  powerful  word  processing  system  lor  !he  Commodore  128 
Inctudes:   •  On  screen  stalL5/helD  display  •   d5  Fonls  leady  to  use 
•   =ofH  eddor.'cfealof  included   •   Foreign  Language  Disk 
Froin  ihe  juttior  ot  fONJMASTEfl  II  comes  FONTMASTgH  1!B,  an  unSjncKl  virsiiin  Iw  the 
Commodore  128.  This  powerlul  woid  processor,  with  Its  many  dlttersnt  print  slyfes  (fonlsl,  l:;rns  your  dot 
malrii  printer  into  a  more  |]OHerful  tool.  Term  papers,  newsletters  and  lorei^n  laii^uages  are  just  a  law  ot  Us 
many  applications.  Here  are  some  ot  Its  capabltltios: 

tlOV.  WiTH  .NO  COPV  PROTECTION   -   USES  HARDWARE  KEV 
Word  Processing  Features 


*  4S  r  Fo<ir»imk.ia»  fluss^an  Gr«i*   HctrCA  Aiatic 
«  nocm  Id.  gsuPEBPOMISecncuf'tnll, 

*  2uppdm  meiB  iM"  lOC  p*'n!e'* 

,  PBG  III*  frV'tX 


Word  PrDcessiufi  Printing  Features 

>  Fiuiionai  cr>4iiciei   mcng  kSH  wt  ao'a  *'u    iusii'"C«i»^ 

■  I^BfKHlBnjI  ^poCir^lLSBT'SdjuSIC^Irl 

*C«uTr!ap  ptmlirg  hip  to  A  OuTWJl 

'Ofl^*,!^  dJO.  rr^^T  C^*Tc:«.l  I'or  E«on«C  nH*,r5S.  *»c-.^e»  «,;  ] 

,  3D«i.,gla  *By»lT*eTMl  ."aJi'.wi  r.pniTimJ^ad  m  fail  fHajJ 

*  COHTiO.Fva  *ii»  O*  a'l  O'  ir*  'enaa.lj  al'«<t«   afy*ll.".^9  IH|all*D>«l 

Kv^  ii-jfl  JO  a.icn**  n-ca  inj'  JO  1.1*  teac'ig  aiai  co'Nja'iaa 
iaH  bc'd'afiig  ."•anwr  ipn«a  witM  o^  t^a^ai  ■mra'ac-'Dia 
mi»*i*o.«i    3  laii  na.aaia  irt.i(-a  .,5r*a»T*m 


■  Paga  nu-nba'  m  flKii^ai  d  f^ot^t 

•  On  l^raan  gl1>1ai1ini^CI'"ifl^'<9lll''^S  Q'  lail  WDCM 

■  On  icraan  tiaiat  Siaciat  ■nciaOing  pictuiaa  oi  to^li 
'  f*tit  ia<ii  siaiiaai  a.iDiari  crptar  oulp.il  on  k'wv 

•  On  aciaan  fr  iing,jai  a<Jit.no 
,  Fpri^i  laiiaiJOata  laaigms 

'  ti^Ht  c««<  nalp  icraai^a 

■  iiigiT  ro  'all  ai]i1.«j  laaruNia  'o<  fo'a^n  i^rgvagrt 
'  ^r.*:H  ..  ■putoii.rafair  ^^  wcoadt  «im  ni  i  dri,a 

■  .,,*  .....mafia.*  !o'  >naa«.ng  giaphiet  mia  «"  " 


Setup  Module 


pi.nfa'    t^fa'iac* 


*  1^4  arataw  aaiuca  ca^  D*  raaga    i"  aacP..  k,i 
E4ai«ranca    a*    coQ'a    tac>t<fu    t*<l.    curaen 

Font  t  Charactar  Sat  Creators 

a  Di4»  eortvl^anga  tw  nAiala«aA«a  6'  tftftll  t'  aall 

a  Gi^  t4f  cna'acta'  iiaai.O'aiMr.ig  <n.an.D,j'atag  •.-i"  cj'ac 

iatai<>  0'  ifli'i  g#^i 
a  f*t.'«g  e9""a«H»t  'i^Hria  ■"•*"  n-p  ■>ag*l*  t/i»  hhm  ^ 
a  C^a.a<ia'  ct^  ba  D"*iag  w^l4  aat.*g  iig^r  caataa  ani>i 


t3ouhDu3 

Fitliirn 

Miiiiiifli'«ii 

SI  iirnjll 
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^ews 

icor) 
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IdaaiiTBin 

C16c     Ingllih 
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H\  IAN  AIMM 


Upgrading  Your 
Commodore  64  to  a 
Commodore  128 


Af  you're  coiisidtrring  iipgniding  Injiii  a  6  i  to  a  128.  )(.)u  ma\ 
be  wcjndcrinj;  jii.st  how  easy  tile  tnin.sition  will  Ix'.  Well.  t;ike  it 
fh)m  mc — die  128  is  compatible  witli  the  6)  in  ever\-  way. 
from  existing  solh\;ire  to  |X.Tiphenil.s  ;u:d  ]ir(jgr:uiiiiiing. 

Bringing  It  Home 

Hie  g(xxl  ne\\s  k  tliat  tlie  1 28  Ls  completeh'  pliig-ctmipati- 
ble  witJi  your  6-1.  Jii.st  iiiipkig  the  disk  drive,  monit()r,  printer 
or  other  accessories  trom  llie  6-i  and  jiliig  them  stralgiit  into 
tile  128.  E\'cr)'tliing  works  witli  no  iiKKlitications  or  spceiLil 
ciibles.  Of  course.  >ou  \\on't  be  able  lu  t;ike  athiuitagc  of  the 
added  features  of  tlic  new  disk  dri\e  and  monitor,  but  at  leiLst 
you'll  Ix-  computing  witli  the  128  with  no  further  expense. 
Ilie  siinie  is  triie  of  \'IC  20  peripherals,  ;ilthoiigh  tiie  software 
is  genenill)'  not  tr.ui.sferable. 

As  tor  your  prognmi  Iibnir\-  on  the  6-i,  it  will  \\-ork  on  the 
128  as  long  as  you  ;ire  in  6-i  motle.  Viith  a  cartritlge,  tliis  is 
automatic —  just  plug  it  in  imd  turn  on  the  1 28.  Without  a  car- 
tridge, tlie  computer  will  be  in  1  28  mode  when  \ou  turn  it  on. 
Just  t>pc  GO  64,  luiswcr  Y  to  tlie  prompt  ARI;  YOU  SURE?,  ;uid 
up  comes  tlic  ftuniliar  blue-  on-blue  screen  of  the  6  i. 

If  you  lia\'e  a  cartridge  like  lipx-x's  l-'ast  iDad.  it  will  autoniati- 
c:illy  perfomi  tliesc  steps  for  you,  putting  the  computer  into 
6-1  iiKxle  ;uid  .setting  up  its  usu:i]  features,  '^bu  c;ui  then  ]->ro- 
cecd  to  load  your  pnjgRims  from  disk  or  tape  in  tlie  iisiuil  fash- 
ion. ,\ll  of  tlie  progTiims  1  tried  worked  perfectK'. 

It  Ls  not  so  much  a  question  of  whetlier  die  128  is  compati- 
ble, hut  tliat  tlicre  is  an  entire  6h  being  held  aipti\-c  iasidc  tlie 
somewhat  larger  aisc  of  tlie  128! 

While  it's  nice  to  know  tliat  your  accessories  luid  M)ftw:tre 
will  work  unnifxlified  on  the  128.  tliere  is  ;il.so  the  t[uestion  t)f 
how  to  take  ad\;mtage  of  all  tliose  extra  features,  the  extra 
memorv;  cnl;irged  B.\SIC.  ;ind  C^PM  capabilities,  .\fter  all.  since 
you  hnvL  so  much  more  power  in  the  new  machine,  tlicres  no 
point  iLsing  it  in  6i  mcKle  ;ill  tlie  time. 

Upgrading  BASIC 

Ix;t's  take  a  look  at  how  your  H--\S1C  progriuiis  can  be  pro- 
moted from  tlic  6-i  or  \'IC  20  to  tlie  1 28,  Turn  on  the  comput- 
er witli  no  ciirtridge,  but  this  time  sta\'  in  128  mode.  Again, 
loading  die  progr.im  is  no  problem,  as  your  existing  peripli- 
eraLs  will  do  tlie  job,  Witli  the  H-il  disk  drive,  tile  usual 
I.C),\I)'progr;(m".8  will  worii  fine.  It  is  much  c-asier.  howc\er, 
to  press  F2.  which  prints  DLOAD  to  tlie  screen.  Tlien  just  en- 
ter tlic  prognun  name  ;ind  press  KI"1TII\  to  load  it, 

llie  rvvo  \ersions  of  B.ASIC  are  upw:irdconi]xiiible,  Wliat 
tliis  nieiu^s  is  tliat  ;ill  of  tlie  new  eiili;uicenienLs  ;iie  additions  to 
tlie  ct)nini;uids  a\;tilable  on  the  6-i.  M  a  result.  ;ill  of  tlie  com- 
m;uids  in  die  64  work  tlie  s;une  in  die  128.  'Ilie  s;ime  is  not 


If  you  are  considering  upgrading 
your  64  to  a  128,  see  just  bow 
easy  the  trajtsition  can  be. 


true  in  re\ei'se,  liowe\er  Pn)gnuiis  written  on  the  128.  il  they 
use  the  new  commiuids  for  graphics,  sound  and  utilities,  can- 
not Ix"  executed  by  the  6i.  If  you  tr\"  this,  you  will  simply  get 
s"\'nt;LX  ern)rs, 

'lliis  tkx-sn't  nieiui.  however,  that  progr:uiis  from  die  6-4  will 
work  uiinKxlified  in  128  miKle.  llie  main  culprit  is  that  ubiq- 
uitous comnuuid  K)KI'!  :uid  its  mildnKuinered  cousin  PI!KK. 
Because  die  6 1  lacks  those  commantLs,  any  prognun  wanting 
to  use  graphics  or  sound  must  do  its  diingb\  |-K>king  appropri- 
ate values  into  memor\'  or  into  the  control  registers  of  die  vid- 
eo ;ind  audio  chips.  In  I  28  mode,  the  memon'  configuration  is 
diflerent — ninning  a  program  written  tor  the  64  would  not 
necessarily  achieve  the  exjiectetl  results,  .\ccordingl\-.  pn)mot- 
ing  a  B/\SI(;  [irogram  from  the  6  t  will  con.sist  of  tour  stejis: 
load  die  prognun  into  128  mtKle;  sc;ui  the  pn)gnmi  for  |x>kes 
and  peeks.  ;uitl  replace  these  «'itli  the  nc"w  128  ctimmiuitls: 
use  your  creativitv'  to  impnne  tlie  program  to  t;ikc  adv luitage 
of  die  added  cafiabilities;  and  siive  die  upgraded  program,  pref- 
enibly  on  a  1S~1. 

Tlie  first  step  is  cas\;  But  lets  tike  a  l(X)k  at  what's  invohed 
in  die  conv'ersions  in  die  seconcl  step.  We'll  al.so  look  at  a  spe- 
cific proj9-.un  to  see  hov\'  the  new  graphics  work. 

BASIC  Conversions 

'llie  meiuiing  of  a  POKIi  conini:uid  c;ui  he  detemiined  by 
examining  the  range  it  pokes  into.  For  example.  POKH 
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53280,1  pokes  into  the  video  chip  nuige.  More  precise!}',  it 
causes  the  screen  border  to  tiim  wliite.  Here  are  some  of  tiie 
ranges  to  icmk  out  for. 

l^mge  liffect       Replace  witli 

53248-  53279         video       Nev\-  graphics 

cliip         comm;inds 

COLOR  SPRlTi;,  etc. 
54272-  54300         sound       Sound  ct)mm;uids 

chip  PIAY,  KNN'ELOPE,  etc. 

0  to  1023  operating  Check  a  memorj'  map 

system 
1024  to  2023         screen      Ok,  or  use  PRINT 

memory 

Let's  look  brief!)'  at  each  of  these  ranges.  'I'lie  table  lists 
the  main  substitutions  you  will  have  to  make. 

"Video  Chip 

Hie  video  cliip  is  probably  tlic  area  ■where  tlierc  h;LS  been 
the  greatest  impro\'ement  in  comm;uids.  Graphics  "progriuns 
\\'erc  previously  a  miLss  of  pokes.  Now  graphics  c;in  be  created 
'ft'itli  some  simple  commands.  Ilicse  accomplish  man\'  effects 
tliat  could  only  be  achieved  witli  machine-language  pn>gnini- 
ming  previously. 

The  first  17  registers  control  the  x  and  \'  c(K)rdinaies  of 
sprites.  Replace  pokes  to  the.se  \'alues  witli  die  new  MON'SPR 
x.y  command.  This  command  can  also  he  used  to  gi'vc  sprites 
independent  nio\enient.  Because  sprites  in  tlie  64  c;ui  move 
off  tlic  screen,  tlic  new  coordinates  w\\l  ;ilways  be  less  tli;ui  the 
old  poke  niimhers.  Note  tcx)  diat  one  SPRin-;  comni:md  e;m 
replace  up  to  sL\  pokc-s. 

lire  numbers  that  you  use  to  set  screen  colors  are  one  higli- 
cr  diiui  before  aiid  now  correspond  to  die  top  n)w  of  tlie  ke>'- 
board.  For  example,  red,  which  is  on  the  3  ke\-,  always  required 
poking  a  2  witli  tlie  64,  but  nov\'  Ls  achieved  widi  a  c:0[.OR 
x,3. 


\lDEO  CHIP: 

sprilL- 

cixjrtlinatcs: 
liglK  pen  X: 
lijdii  pen  y: 
mm  ,'i{iritc  1  uo; 
sprite  1  in  red: 
in  front  of  text: 
expund  x  direction: 
d(Hi'l  expand  y: 
one  color  motle: 
.set  border  color: 
backgnwnd  colon 
SOlI^•D  CHIP: 
niaxiniLim  volume: 
^■oice  i  .JiCKR: 

^■oice  !  middle  C: 


soiiiid  tflea;;: 
n-.id  paddles: 
cmiHU; 
read  joy.sticfcs: 


POKE  5.^2-iaKK) 

P<.">KI-:^.^2-l9,12S 
PHEKi  =1^26- ) 
PEEf«S.-^2(;.8) 
POKES.^Jfi'AI 
K)Ki;  5.^287,2 
POKj;  5,^2~5.0 
K)K]-:  =>M'^-'A 
KIKJ-:  S.^27-,() 

W)KP  i.l^HO.n 
K^JKE  5.128 1,n 


K)KF. 
Pt^Kl", 
POK1-; 
RIIO-: 

mm-. 

:FOR 

NEXT: 
:ilv)ui 
PEF.K( 


i-i296.lT 

=>-i2~.l7 

';-l2^8.I5S 

S-1272.19S: 

St27.\16: 

5-i2-6,n 

I   =    I  TO  1(K>: 

POKI-:  5-i2-'fj. 

20  ("OKEs: 

5l297«) 
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PEEK(  56.^20) 

pe[-:k(s6.^2i) 


MtASPR  1.76.75 

PEN(O) 
PEN(l) 


SPRIIT.  l.l,3,.l 


COI.OIl-i.n+  I 
C01.()Kan+  I 

vol.  It 
ENVELOPE  n,  1,1,8." 

PU\'  "C" 


SOPND  .1,2S6.S0()„, 
IHVI'dVI'O'lU) 

.10V(  1  ) 
.IOV(  2 ) 


Sound  Chip 

The  new  commands  allow  music  to  he  played  in  a  ver>'  nat- 
ural lashion.  You  c:ui  tlinw  out  your  long  .scTies  of  j'X)kes  ;uid 
Uibles  dill  of  frequencies,  :uid  replace  them  with  a  simple  PLVi' 
"ABC...".  Wliile  you  c:m  set  the  attack,  tleca)',  sustain,  releiLse 
and  waveform  if  you  want,  tliere  are  ten  preset  iastniments 
that  can  be  used  widiout  any  fijrther  eflfort. 

Note  a  small  ern)r  in  die  documentation  for  tlie  PIAY  com- 
mand. You  use  I  n  to  set  die  volume.  :uid  die  system  guide  sa\'s 
n  can  be  0  to  15.  'Hie  range  is  0-9. 

Screen  Memory 

Screen  memory'  is  in  die  same  place  in  tlie  128.  so  pokes 
into  die  nuige  1024  to  2023  c;m  remain.  Ilowevcr.  with  im- 
proved screen  formatting,  \'oli  should  replace  these  with 
PRINT  statements. 

Operating  System 

An)'  poke  into  die  iirca  below^  1024  is  likely  to  aflect  die  op- 
erating s'j'stem.  You  will  need  a  menion,'  map  ;iiid  the  kno\\'l- 
edge  to  use  it  in  order  to  de;il  wiUi  these  comniiinds. 

Rumiing  Speed 

Some  programs  may  be  affected  h\'  variations  in  run  speed, 
particuliirly  gimies  diat  depend  upon  timing  Lising  die  three- 
line  prognuii  shown  to  time  die  computers,  I  foimd  \er\-  little 
variation.  Tlie  128  in  64  iiKxle  is  about  3%  faster  di;ui  tlie  64. 
in  1 28  mcxle,  it  mms  out  to  be  5%  skwer,  due  no  doubt  to  the 
extra  work  associated  widi  die  larger  memor\-  and  ftincier 
screen  controls.  'Die  128  -.d.so  has  a  fast  mcxle,  which  Ls  just 
over  twice  as  fiist  as  slow  mode. 

More  Tips 

I  hope  tills  infoniiation  will  give  )'ou  some  mssistance  in  pro- 
moting your  BASIC  progr;ims  from  die  64  onto  die  1 28.  Once 
die con\ersion  is  made.  \ou  c;ui  use  the  new  commands  to  en- 
li;uice  die  prognuiis  greath'.  If  diere  is  enougli  interest,  I'll  tr\' 
to  cover  some  of  diese  enhancements  in  die  fiiture.  In  die 
meantime,  here  are  a  couple  of  hints  to  gi^•c  you  a  pre\iew  of 
die  additional  fcamres  you  c;m  get  with  die  1 28's  own  ]>eripli- 
ends. 

You  will  need  die  1902  monitor  to  get  fiill  access  to  all 
graphics  modes.  However,  you  can  get  a  snc;ik  peek  at  80  col- 
umns widi  your  1701  or  1702  monitor  and  a  simple  cable, 
You  -will  need  a  9-pin  male  subminiature  connector  luid  a 
comnionly-a\-ailahIe  RCA  cable.  Connect  die  cable's  ground 
wire  to  pin  1  aiut  die  center  wire  to  pin  7.  Plug  die  9-pin  con- 
nector into  die  computer  port  in;irked  RGBl  luid  die  RC-\  plug 
into  the  video  S(x;ket  on  die  front  of  tlie  monitor.  Flick  die  sig- 
ri;d-se!ect  s-witch  on  die  back  of  die  monitor  luid  you're  look- 
ing at  the  80-coIumn  screen  (monocliromc  only).  Press  ESC 
dien  X  to  start  using  die  screen,  llie  resolution  isn't  great,  but 
at  least  you'll  know  it  worlcs, 

ContniT)'  to  some  nmiors,  \'ou  c:ui  load  CP/,M  from  the  1 54 1 
disk  drive.  Simply  insert  the  c;P/.\I  system  disk.  t>'pe  BOOT.  ;ind 
hit  RETURN.  Tlie  problem  will  arise  in  transferring  CP/M  pro- 
grams into  a  format  die  1 54 1  c;ui  understiuid.  If  a  friend  who's 
an  electronics  engineer  c;ui  do  diat  for  \'ou,  gi'eat.  Odienvise, 
you  will  need  die  new  1 5- 1  drive  to  read  stiuidartl  CP/M  disks. 

Tliat's  ;dl  for  now.  'Hie  accompan\'ing  progr;uii  Ls  ju.st  a  dem- 
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COMPUTEREYES™  | 


VIDEO  IMAGES  OM  YOUR  COMPUTER! 

Finally—  an  inexpensive  way  ro  capture  re^i- wotid  irn.iges  on  your  :ompu:pr'5 
graphics  display!  COUPUTEREYB  "  is  ^n  mnovaiiv^  Mow-scan  devKe  ihat  con- 
neas  twrwwn  any  standard  vifleo  source  (vjdeo  tape  recorder.  vk3«)  carritfa, 
vidieodisk,  ercj  ^nd  your  computer  Undej-  simple  software  control,  a  6lw  image 
IS  acquired  in  less  than  vx  seconds  Unique  multi-scan  modes  also  provide 
rearjsti:  grey-icale  images  Hundreds  of  appficafions! 


Package  jncludes  interface  module,  com 
p(ete  easy-io-use  solTware  suppon  on 
disk,  owner's  manual,  and  one  year 
warranty  ad  for  S  129.95  plus  i^.OO  S&H 
(USA) 

Also  avjilabfe  sz  a  complete  package 
incfjjding 

•  COMPUTEREYES^' 

•  Ouaiity  0/w  video  camera 

•  Corinedtng  cable 


Demo  diik  available  for  S  10.00  postpaid 
f  refundable) 

See  your  dealer  or  order  direa  Mass 
residents  ^KXi  5%  sales  tai  Wasie^ard. 
Visa  ^cepied  To  order,  or  for  more 
information,  write  Of  call 


DIGITAL  VISION,  INC. 

66  Eiiilern  A^pnu* 
DirfUflm.  MA  02026 
(6t7f 329  S*00 


I 
I 


$129.95 


ONLY 


Avaiiabfefor 

•  Apple  H.IU.Jle  and  Uc 

•  Commodore  64' 128 

•  Aiart  aOOiSOOXL/  I30XE 

•  IBM  PC  and  f  ompatihies 
(S249  95— includes 
add'tfoniTf  features} 

•  Atari  SHS24«3  95-tull 

color  digrtj;ef ) 


LEROY'S  CHEATSHEET 

Keyboard  Overlays 


$7.95 

each 

PLASTIC 

LAMINATED 


$3.95, 


far  your  COMMODORE  64 


For  ycur  COMMODORE  1 28 

Pu!  Yoor  C;ompul»ri  Comnarxl*  Wh«f» Thty  Belong  •  And  Yaur  MlirHdIl  Chi  Th*  Stall. 
Have  yaj  ever  sal  ti  your  cottpiMt  with  the  manual  m  yoo!  lap  rpng  :o  t  rxJ  an  esuSAce  coTmarKi''  Ho*  mucn 
^mahaveyo^kmslBMq1^ngtflfOug^m■^lMbtQ^^fc^ahy^^^mgTT^^      rmw  !o  do  wftai  tou  waMeC  Now  i-ciu 
tiave  a  wav  lo  erd  9iftt  iruslr^tion  -  IttvfM  OiHUtiMU 

imvft  Chtttthtta  rteip  you  gei  ir^o  pur  program  right  away  W*put  tnt  commands  ngn  ai  your 
BnMfffcw. actual keysrcites are  n  bdd  r>i>e  .aruhes  utt (hQwn in laici.  OBSi0na(f by  toRmra eaperts.  our 
dvablB  plastic  lam^rateO  overlay;,  a-e  ccTip^eh&^s.vs  ratartnn  aUt  which  docv»*nt  a  product  or  ayaam 
comiawehr  Now  use  yyjr  5o>wa-fi  ivofp  eas  !>  a^-d  niorB  *ff*ctrvet^  With  twroys  Chsatihwls  youi  never 
have  la  hunl  l&r  a  procram  ccmnu^id  a^m'" 


SOFTWARE 


■'^^^ 


^rc-a" 


*^v 


<a^ 


£er?- 


DISCOUNT  SOFTWARE 

*  FREE  CHEATSHEET 

Wi  carry  a  a)~P*'e  ire  c'  scT^A.it*  At 

□•I  a  Fft££  L«ft>y'i  ChHtihMl  of 
your  cnoicei  CALL  or  WRITE  TODAY  ra- 
prices. 


□ 


EQUIPMENT  STAND 


.,,1.         ^^^ 

$  19.95  t^^/ 


Mm*  oI  tiwrdy  vinyl  caatKl  ilvvl  -  tiroig  i-n^jsi<  'Q'  a'^y  corT>>:tjT>i' 
«ji[)n*n(      Th.»  MJipfTwnr  ilflnd  »nll  riffip  yt>d  Wflinlil  your  lysWm 

iwitctw*  ari  mwt  tC£«Uffllt  *n(J  yow  •Qyiprnpi!  ilitrB  cooMr  Thv 
Piobi«rn  Sorvtr  Equ«nrwnl  Itflnd  wu  ■(MCUtiry  flHIonw]  ror 
CoT-rrodO'iiCOmDOTerB  13BaM  K&ops  your  rwrMlof  UI  Cr*  l^^ei  l,G.rea:ia' 
pllntvri  ;oo,i  i.,i^,M.,.o_,,,^,-rj..a- 
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QIE-CUT 
J  Bm*;  ?  a  J  Murn>»r  1  it 

J  BiarH4  >>iCT  wwMi       ^w  -J  PtpvbKM  (">>*> 

JEw>5cr<«  I- jf»iot«ipI2i 

J  e#«r  SrE«T  2  I  <:         «•  :iSicMiMPV4ia 
V  J  ^^1  S'^tiTW  2  H  WortproTIB 

FREE-  Kgyboirtl  «KiendW  (taen  ottfyl 


Order  Now  and  Save ...   Money.  Time  and  Frusirallon 
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Eqiilpminl  Si»>rfM*l  ■=■■  '->  St9  H  «*:- 


cu)  Ojt  nx*M  b/ cti  pomt)  if«  1 


jBUnlttWOTiiHinn 

-  jt>iHUinaa«« 


JFl*tl8y«ni8         I*.  J  PAp«taic*  P! 

J  Of  OS  jS*«»at;i3 
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Also  mi  trw  CQWWODQflEMC 


DRDEWNO    mFORhUTIOH         Fw     IM    iMlMn 
■Ad    Vu   oiMTV   bH»—    IrKk^   tfi    t    *]«>vMmn    g 


HOD  UK 

UM  'ft'K 

MM        UK 


El 


^y^A    '«M)r4  6n^ 
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UPGRAD  NG  YOUR  0-64 

oastration.  but  it  show's  how  easily  a  graphics  demonstration 

am  Ix"  \Mntttn  in  B.\.SK:.  Tlie  sune  tiling  on  the  6-i  would  re- 

quire litendly  hundreds  of  pokes.  Tn'  m(Kltt\ing  the 

■itarting 

\;i]ues  of  XI,  X2.  ;md  IX;  to  get  tliflerent  elfeet.s. 

Q 

Bcfori' nping lliescr pro(ffams, rail  ■How lo Enter Pr<>f;rain»," and "Hijiv lo L'sc ihc 

Magazine 

Entn-  Program."  The  MiiC  priijinms  in  this  m:is.i^int  arc  3\-.lilablc  on  disk  Snm  Loadstar,      | 

P.O.Box  30007. 5iin;vipiirt.l.\  ■llM)(HHr,  1-K()(IR3I-2W!. 

Demonstration  Program 

140    Xl=90:    Yl=20:    DX=8:    DY=5 

:REM    CHANGE. . . 'FCRI 

150    X2=170:    Y2=80:     EX=2:    EY=-5 

:REM    THESE 'GYAK 

160    XL=0:    YL=0:    XM=319:    YM=199 

:REM    DON'T    CHANGE    THIS!!!'FNQO 

170    COLOR    1,8:    GRAPHIC    1,1'CHIF 

130    : ' ABHD 

190    DO:    DO'CBQG 

200    FOR    1=1    TO    10'DECX 

210    :  'ABHW 

220    X1=XH-DX:    Yl  =  Yl+DY  '  ENFE 

230    X2=X2+EX:    Y2=Y2+EY ' ENLF 

240    :'ABHA 

250    IF    X1>XM    OR    XKXL    THEN    DX  =  -DX 

:    X1=X1+DX' JTVM 

260    IF    Y1>YM    OR    YKYL    THEN    DY=-DY 

:    Y1=Y1+DY' JTFN 

270    IF    X2>XM    OR    X2<XL    THEN    EX=-EX 

:    X2=X2+EX' JTDO 

280    IF    Y2>YM    OR    Y2<YL    THEN    EY=-EY 

:    Y2=Y2+EY' JTMP 

290    : 'ABHF 

300    DRAW    1,X1,Y1    TO    X2,Y2'CMBB 

310    DRAW    0,X1(I) ,Y1(I)     TO    X2(I), 

Y2  (I)  'CYEE 

320    r'ABHY 

330    X1(I)=X1:    Yl (I)=Y1'CPWE 

340    X2(I)=X2:     Y2 (I)=Y2"CPBF 

350    : 'ABHC 

360    NEXT'BAED 

370     : 'ABHE 

400    CHAR    ,18,23,    "PRESS    A    KEY    TO 

PAUSE" 'BHDF 

410    CHAR    ,18,24,    "PRESS    Q    TO 

QUIT"'BHXF 

420    :'ABHA 

430    GET    A$'BCGC 

440    LOOP   WHILE    A$=""'DCAF 

450    GET    KEY    A^'CCEE 

460    LOOP    UNTIL    A$="Q"'DCFH 

470    :'ABHF 

480    GRAPHIC    0:    END'CCYH 

490    :'ABHH 

IMP 

liming  Program 

10    TIS="000000"'BDCY 

20    FOR    1=1    TO    100:A=I"2:NEXT'GKSD 

30    PRINT    TI'BCDA 

XHD 

ADVENTURE  ROAD 


Continued  from  pg.  24 

into  mercenaries,  armed  rabble,  the 
needy.  saUuiisLs.  siini\;ili.si.s,  I(k.;i]  gimgs. 
or  foreign  soldiers.  Some  encounters  en- 
alile  you  to  recniit  g;uiL;  nienilxTS,  wiiile 
otliers  sp;irk  f(X)t  eoniliat.  In  loot  liatties 
you  merely  watch  a  comliat  report  in  die 
text  window  until  one  side  is  wiped  out. 
It's  fast,  but  offers  no  control  o\er  tlie  ac- 
tion. 

Run  across  anotlier  roati  g;mg  :uid  \-oli 
get  to  choose  from  tliree  combat  modes: 
abstract,  quick  or  detailed  tacticiil  com- 
bat. 'Ilie  first  Is  like  liKJt  ct)nibat — speed)' 
but  d;uigert)us.  Lick  of  control  o\'er  your 
p;irn-  meiuis  you  usually  lose  more  giing 
members  and  c;ii-s  Ukut  witli  die  oUier 
combat  modes.  In  tlie.se  \-oii  tlecide  how 
to  deploy  your  g;uig  by  placing  them  on 
top  of  ;md  inside  your  vehicles.  ()iiick 
combat  lets  you  select  \()ur  c;irs'  t;u^cLs 
and  make  a  few  other  tiictical  decisions. 

.\  six-  to  eight-line  mes.sage  fills  tlie 
screen  to  descrilx'  each  attack,  .scrolling 
up  until  a  victor  is  declared.  'Ilie  Rilly  de- 
tiiiled  tactical  option — in  which  \()u  di- 
rect your  cars  in(.li\idu;dl\-  in  a  battle  diat 
can  last  from  1 5  to  .^0  minutes — is  die 
heart  of  this  g;ime.  liich  liattle  occurs  on 
a  map  diat  reflects  tlie  temiin  in  which 
die  encounter  t;ikes  place:  city  streets, 
forest,  or  ;ui  interstate  higliway  ;tre  some 
of  tile  jx)ssibilitie.s.  All  cars  are  illustrued 
witli  your  choice  of  icons  seen  tix^m  a 
side  or  aerial  vie\\-. 

First  you  give  orders  to  move  each  ciir 
and  change  speed,  tlien  you  pick  S|x;ciric 
targets  for  each  vehicle.  Ilie  results  ;ire 
-animated,  but  far  slower  tli;m  in  Auto- 
Duel.  This  is  a  strateg\-  ;ind  tactics  battle, 
not  a  contest  of  coordination  and  re- 
Ilexes.  .My  favorite  piirt  of  detailed  com- 
bat LS  tlie  tnuisfer-;uid-board  option.  1  lere 
you  can  have  your  g;uig  memlx-rs  jump 
onto  adjacent  cars  to  attack  die  crew  and 
tr\'  to  capairc  it,  die  ways  pir.ites  .seized 
sliips  on  die  higli  seas.  (It  is  not  ;ininiat- 
ed,  however).  Success  requires  using 
each  veliicle's  stiXMig  (>oinLs.  I'or  ex;im- 
plc,  a  sports  car  is  last,  while  a  bus  packs 
.so  many  men  ;ind  weapons  diat  it  c;ui  be 
used  like  artilter\'  in  a  w;u'  j>;inie, 

'^bii  begin  widi  six  cars  ;uul  must  figtit 
these  lengtliy  tactic;d  liattles  in  order  to 
expand  your  fleet.  I-or  each  \icton',  you 
can  obtain  imtjdier  car,  u]i  to  1 S.  ( 1  know 
people  who  finished  die  g;une  widi  only 
sL\  vehicles,  relying  mainh'  on  quick 
combat. ) 

To  find  die  scicntLsLs.  you  will  roam 
&X)m  cit\'  to  city  and  u.se  die  "people" 


command.  (After  you've  found  most  of 
diem  ;uid  ir turned  diem  to  lic"idqu;ir- 
ters,  you'll  get  a  homing  device  (hat 
.speeds  up  locating  die  odiers. )  l:\entiial- 
ly  three  specialized  cre\\-rypes  called 
CnMiies  will  turn  up;  d(x:tors,  drill  ser- 
ge;uits  ;uitl  politici;uis.  Kach  has  sjiecial 
iiliilities  diat  improve  your  gang's  jierfor- 
niance.  At  times  you  must  fopLgo  die 
quest  tor  die  scientists  to  sock  fuel.  I'ckkI 
or  medicine. 

And  occasionally  ytiu'll  be  prompted 
to  m;ike  decision.s,  such  as  die  time  I  \is- 
ited  liLs  Veg:LS  and  had  to  decide  whether 
to  let  my  crew  go  g;uiibling  or  not.  In 
diese  situations  you'll  di.sco\er  diat  your 
decisions  ma\'  ;ifl'ect  die  g;uig  in  ;ui  utiex- 
[X'cted  HKUiner  Once  half  my  crew  de- 
sertetl  me  ;ind  joined  a  religious  cult! 

'Ilierc  ;ire  no  sound  effects  and  die  ani- 
jiiation  is  slow.  But  diis  g;imes  soft  spot  is 
really  di.sk  access.  It's  fast  enougli,  but  oc- 
curs ;ilniost  e\ery  time  you  punch  a  key. 
Certain  elements  of  the  game,  such  as 
your  st;irting  place  ;ind  die  legation  of 
die  .scientisLS,  ;ire  nmdomix.ed  for  each 
new  game,  v\'hich  increases  die  repla)' 
value.  !:\en  :ifter  die  quest  is  over,  you 
c;ui  return  to  die  streets  and  pla)-  a  de- 
tailetl  combat  scene  as  a  mini-game  in  it- 
self, 

St)  if  you  want  arcade  acdon  and  tfie 
opportunirv'  to  design  your  own  cars, 
AiiloDiwI  is  die  way  to  go.  R<HUlwcir 
liHH)  offers  more  for  the  player  who  pre- 
fers to  t;ike  his  time  before  making  a 
mo\e,  who  jirefers  to  direct  die  actions 
of  a  fleet  of  c;irs  in  a  war  giune-style  en\i- 
ronment.  Kidier  way  you're  likely  to  take 
a  wrong  turn  .somewhere  up  the  road,  so 
here  :ire  a  ft"\\-  tips. 

In  AiiloDiic'l  spend  all  your  character 
points  on  l)ri\ing  and  .Nhirksnianshtp. 
since  \ou  c;ui  alwa\s  boost  your  S:tlvage 
skill  by  paying  for  lessons  in  a  garage.  A 
safe  way  to  increase  these  skills  is  to 
lea\e  town  just  long  enougli  to  kill  two 
or  three  outlaw  c;irs.  dien  return  to  the 
s;une  town — don't  tr\'  to  ni;ike  it  :dl  the 
way  to  ;uiodier  town  early  in  die  g;mie. 
"^bur  "save  disk"  is  not  copy -protected,  .so 
duplicate  it.  This  way  your  character 
vs'on't  Ix'  lost  if  he  gets  killed  ;uid  you 
don't  lia\e  a  clone. 

In  R(Huhixir  J(X)0,  get  a  big  \ehicle 
like  a  tractor  trailer  to  carry-  lots  of  ftMxi. 
Duritig  detailed  combat,  turn  your  bus 
sidc-wa)'s or  dri\e  bet^ ecn  the  eneni)  so 
you  can  lire  at  the  eneni\  from  eidier 
side.  Visit  .Mountain  \'iev^"  early  to  find 
(ironies.  n 


^Xt£  ^hirii  eSofturaxz,  iJne. 


538  S-  Edgewood 

La  Grange. IL  60525 

(3r2)  352-7323 

1541/1571  DRIVE  ALIGNMENT 

Avoid  costly  repair  bills!  Perform  your  own 
alignmenl.  1541/1571  Drive  Alignment 
diagnoses  and  reports  the  alignment  condition 
of  the  disk  drive  as  you  perform  adjustments. 
An  on-screen  HELP  menu  is  available  while  the 
program  is  running.  Full  documentation 
includes  section  on  how  to  load  Alignment 
program  even  when  the  drive  is  badly 
misaligned.  Auto-boots  to  all  modes.  Works 
00  1541.1571  in  1541  or  1571  mode.  C64  Of  0128 
in  64  or  128  mode    Only  S34,95' 

SUPER  DISK  LIBRARIAN 

A  full  featured  disk  cataloging  and  library 
system  for  the  C128  in  128  mode.  With  one 
keypress  all  programs  on  a  disk  are  cataloged. 
Catalog  up  to  lOOO  disks  and  15.200  program 
names'  Opefates  in  fast  mode  with  BO  column 
display.  Catalogs  1541.  1571  and  CP/M  Plus 
formatted  disk  directories.  Reads  heavily 
protected  disks'  Printer  output  includes  library 
index,  full  library  report,  master  program  list, 
category  program  list  and  disk  labels.  Also 
contains  full  featured  disk  utilities  sedion 
including  all  CBM  DOS  commands  plus  rename 
a  disk,  copy  protect  a  disk,  change  disk  format 
wittiout  affecting  data  &  much  more'  Fully 
documented.  Organize  your  disk  library  i 
more  for  only  $29.95' 

MUSIC  OF  THE  MASTERS 

Free  Spirit's  highly  acclaimed  Music  ol  the 

Masters  series  is  a  must  for  a!l  music  lovers. 

An  hour  of  classical  music  per  disk  for  the  C64 

or  the  C128  in  64  motJe. 

Music  ol  Ihe  Masters  I  -  Handel.  Haydn.  Mozart. 

Bach,  Beethoven  &  many  others! 

Music  of  the  Masters  II  -  Minuets,  waltzes. 

sonatinas    &    more    from    Bach.    Brahms. 

Beethoven,  Chopin.  Schubert  &  many  others. 

Music  ol  Ihe  Masters  III  -  Mostly  Mozart. 

Music  ol  ttie  Masters  IV  -  Best  of  Bach, 

Music  ollhe  Masters  V  -  Popular  themes  from  ihe 

greatest  &  best  known  works  of  the  Masters. 

S9,95  per  disk.  2  for  S17.95,  3  for  524,95.  4  (or 

S31,95,  order  all  5  disks  for  onlyS38.95! 

The  Great  War  •  Vi/WI  strategy  game  for  the  C128 
1(1  128  mode  and  1571  disk  drive.  Armies  of  17 
countries  represented.  Hundreds  of  hours  of 
challenge.  Disk  -  S29.95 

BASICally  Simple  64  -  How  to  use  all  basic  2,0 
commands  in  Basic  programs.  Disk  -  514,95 

BASICally  Simple  1 2B  -  How  to  use  all  Basic  7.0 
commands  in  Basic  programs.  Disk  -  519.95 

Proqraminer's  Notebook  -  High  speed  storage  & 
retrieval  system  designed  specifically  for  the 
programmer.  Index  magazine  articles, 
programming  routines  or  other  computer 
related  mformation.  For  the  C128  in  128  mode. 
Disk -519,95 

Mr.  Ouizzer  -  Program  to  prepare  quizzes  as  a 
general  aid  to  learning.  Prepare  multiple 
choice,  vocabulary,  speliing,  T-F.  or  general 
question-answer  tests.  Works  on  C64.  C128  in 
either  64  or  128  mode.  40  or  80  column  display. 
1541  or  1571  disk  drive.  Commodore  i 
compatible  printers.  Disk  -  S19.95 

Free  shipping  &  handltngl  Immediate  delivery! 
Illinois  residents  add8°a  sales  tax.  Send  check 
or  money  order  to: 

Free  Spirit  Sofi!«are,  Inc. 

53S  S,  Edgewood 

La  Grange.  IL  50525 
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Inter  Melody 

for  the 
Commodore  64 

A  he  Conimodort  6-i  possesses  one  of 
the  Ix'sl  sound  chips  t'oiinil  in  a  home 
computer.  Ho\\l\xt,  using  this  sound 
cliip  (Slli)  is  not  easy,  aiKl  :U  times  \cr\- 
conliising.  Inter  McUkK-  simplilies  enter- 
ing music;d  notes  such  as  C!,r,A#  ;uul  idso 
li\ens  up  your  li.VSIC  or  niacl:ine-htn- 
guage  prognuiis. 

In  order  to  play  a  note,  one  must  set 
tlic  ADSR  en\-elope,  ch(X)se  a  wavefonn, 
and  last  but  not  least,  determine  the 
ptx)per  frcqucnLy  tor  that  note.  'Ilie  last 
of  tliese  tasks  is  tlie  most  cumhersomeof 
:i]l.  Having  to  k«)k  at  a  table  and  iiicking 
out  numbers  for  a  desired  note  c;ui  he  a 
tlifficult  ;uid  a  lengthy  process. 

By  using  Inter  .Melody  you  c;m  enter 
notes  as  you  would  read  tliem.  for  exam- 
ple, you  enter  a  C  note  simply  as  C,  or  a 
Ci#  note  ;ts  Cj#.  Tliere  is  no  need  to  kxik 
at  tile  trequcncy  tables  luiy  longer.  How- 
ever, Inter  Melody  does  more  t]i:ui  sim- 
plih'  editing  music.  Ilie  nuisic  tliat  yoti 
enter  will  be  playetl  during  system  inter- 
nipt.s,  thus  the  micro  pn)cessor  is  free  to 
do  otJier  chorL-s,  lliis  means  tliat  a  H.VSIC 
program  or  a  niachine-UuigLiage  pR)gruii 
c;m  n.in  wliile  tile  music  is  playing  in  tlie 
background.  Ttiis  feature  c;ui  spice  up  ;il- 
most  any  game  that  you  can  think  of 
imagine  jilaying  the  song  from  a  popular 
mo\'ie  while  tlie  giime  imitates  tile  mo\- 
ic  itself,  or  to  speed  up  the  song  in  tJie 
background  once  a  higher  level  is 
reached  in  a  g:uiK'.  "^'our  iniaginalion  is 
die  limit. 

In  order  to  use  Inter  Melody  properly, 
follow  tliese  directions.  1-iiNt  type  in  Inter 
Mel(Kly  C(xlc  and  sa\e  it.  'Hiis  is  the  ma- 
chine- hmguagc  part  of  the  program,  ;uid 
it  has  to  be  in  memory  l>efore  any  music 
c;ui  Ix'  played. 

Next  t\pe  in  Inter  .MelcKly  anti  save  it. 
Tliis  is  tlic  B.ASK;  pLin  of  the  prognun.  To 
nin  tlie  prognun,  first  load  and  run  Inter 
Melody  Cxxie.  W  hen  you  see  the  RIi.\D^' 
display,  load  ;ind  run  Inter  .\1ekx.ly.  .Since 
Inter  Mekxly  plays  the  music  during  in- 
temipts,  only  two  of  the  .SlD's  voices  are 
used.  ThLs  is  done  so  as  not  to  slow  dov^^^ 
the  operation  of  the  microprocessor. 
'Hieretbre  it  is  u]i  to  the  user  to  decide 
which  of  the  two  voices  will  be  used. 

One  adviuitage  of  ha\ing  only  two  of 
tlie  voices  play  lies  in  the  fact  that  one 


\-oice  will  be  left  free.  For  example,  if  you 
ha\e  a  H/VSIC  ]>n)graiii  tliat  uses  one  of 
the  voici-s  for  sound  effects,  you  ciui  tell 
Inter  MeltKly  to  use  the  other  two  \'oices 
to  [■)lay  a  st)ng.  Tliis  way.  while  your  pro- 
gram is  Rinning.  tlie  music  \vi]l  Ix:  play- 
ing in  the  backgR)und.  Once  you  clKX)se 
which  Vsvn  voices,  1&2  or  liSr.-'i  or  Z&j^ 
will  he  used,  tlie  prognun  will  start  reatl- 
ing  the  nuisic  data  tliat  you  ha\e  entered. 
Hie  nuisic  must  be  entered  \ia  DAT\ 
statements  st;irting  at  line  lOOO.  A  typic;il 
line  might  look  like  this:  1000  IMTA 

(:.(:#,i>.D#,i-..i',i'#,G,(;#..-\.A#,H.-+-,(:.2.- 

.CRIi.S.HND  Hie  folkm  ing  table  explains 
:J1  the  synilTols  that  c;in  be  iisetl  with  In- 
ter .\Iel(Kl\. 

Fonnat      Meiining 

C  Note  C 

(;#        NotcC# 

1>  Note  D 

n#       .Note  D# 

I-  Note  E 

F  .Note  F 

F#        Note  F# 

G  Note  G 

(;#       Note  G# 

A  Note  A 

A#        Note  A# 

li  Note  B 

-f  .Mo\e  up  ;ui  octave  (initial 

octave  =  -1  til) 
.Move  down  lui  cx:une 
lil'i  Rest  (  no  .stnind ) 
l-JSD  I-aid  of  data  for  one  \oice 
^'ou  may  also  specitS'  a  duration  for 
each  tiole.  Once  )ou  enter  the  [lote.  fol- 
k)w  it  with  a  number,  sc-parate  ficjm  the 
note  by  a  comma.  'Iliis  number  for  the 
duration  can  nuige  from  2  to  102i.  Mow- 
ever,  if  no  duration  is  specified,  a  default 
tluration  of  one  is  assumed.  In  ;my  case, 
make  sure  that  the  number  of  beats 
(nimiber  of  notes  plus  tlie  number  of 
specified  duration.s )  for  one  \'oice  is  e(.|u;d 
to  the  number  of  Ix'ats  for  the  other 
\()iee.  OthcRvise  inter  McUkK  \s'\\\  re- 
s]")on(.l  Willi  lui  error.  Tliis  is  because  Inter 
.Melody  loops  ;iround  once  the  music 
tLita  is  finished  ;uid  if  die  number  of  beats 
per  \'oice  is  not  the  same,  die  sound  will 
Ix'  disoriented. 

Once  you  finish  entering  tlie  music 
d;)ta  for  one  \oice,  )'ou  must  sign;il  Inter 
.Melody  with  :ui  ENT)  in  tlie  Llata  state- 
ments. I'lien  proceed  with  the  music 
data  for  the  other  voice,  ;uid  similarly  fin- 
ish it  olf  with  another  END  statement. 
Once  all  the  data  has  been  processed, 
you  no  longer  need  Inter  .\leliKh'  to  play 
llie  music.  .\ll  you  do  is  t\[X'  .S^i  S.^fvS  I H 


to  .start  die  music,  or  to  stop  die  music  il' 
it  is  :ilread\'  playing.  Ilie  first  tiling  that 
you  will  notice  is  that  the  cursor  does 
not  di.sajiix-ar  .\Io\e  around  the  screen 
or  list  the  program — the  music  never 
stops. 

The  ADSR  en\eIojx'  ;ind  the  waveform 
for  c-ach  \oice  c;ui  Ix-  changed  by  simply 
ch:uiging  the  corres[Tonding  \ariable  in 
lines  I  lb  ;uid  ISO.  Hence,  MX  1  )  refers 
to  die  attack  decay  rate  lor  the  first  \-oice 
and  .\D(  2  )  refers  to  the  attack  decay  rate 
tor  tlie  .second  \oice.  Simiiariy  ,SR(  1  )  and 
SR(  2),  refer  to  the  sustain  release-  rate  for 
the  first  :uid  second  \oices,  rc-specti\el\-. 
Hie  \U\  I  )  ;uid  I  ll^  2  )  and  the  !.P(  1  )  anil 
U\2)  ;tre  usetl  to  set  the  pulse  witlth  if 
tlie  pulse-  wa\-eforiii  is  selected  for  :uiy 
one  of  the  two  voices.  Ilie  v;iriables  \\A 
;uid  WB  refer  to  the  waveforms  chosen 
for  die  first  iuilI  second  voices,  and  finallv 
'IlLMR)  represents  the  lime,  in  60tli  ot  a 
second,  tliat  each  note  is  ni;unt;uiied. 

For  exiunple,  if  Ili.MPO  equals  2  lO, 
then  each  note  Ls  niainiainetl  for  four 
.seconds  (2  iOW)).  It  is  Ix-st  to  set  thesi.- 
par.uiieters  ;tlter  the  data  has  been  pro- 
cessed. .\t  diat  (Toint  \on  ma\-  ch;uige  die 
panuneters  ;uid  dien  re.sjx»nd  \\  idi  a  ^MS. 
once  tile  profyam  asks  if  the  data  has 
!x-eii  pn>cessed.  (■.ontitiue  this  until  you 
like  a  p;inicul;u-  setting.  ;uitl  then  s;i\  e  the 
prugnim  widi  tlie  newly  added  DATA 
statements. 

'File  AD.SR  envelope  ;uid  tlie  vokinie 
c;ui  Ik-  controlled  by  ixiking  the  desired 
v;Jue  into  the  proper  SID  registers,  thus 
enabling  you  to  control  these  p;ir;uiieters 
from  within  a  program.  However,  in  or- 
der to  ch;uige  the  waveform  you  must 
use  Inter  MekKly.  'Ihe  tempo  can  al.so  he 
chiuiged  IVoni  within  a  pn)gr;un,  via  the 
following  poke. 

l'OKE"'62.(  0-2=55) 

Tlie  highest  address  used  by  BASIC  is 
lowered  in  ortler  lo  store  one  p;irt  of  the 
prognun  ;uul  to  st-i  aside  a  iK  :u-ea  for  die 
music  dua  from  S9000  to  S91TF,  lluis 
diere  is  nKini  for  a  total  of  1.02-i  notes. 
Tile  second  p;un  of  the  jirognun.  die  ac- 
tual wedge,  resides  in  page  two  from 
S02A~  to  S02FF.  Hierefon.-  diere  is  al- 
most  h  i  K  for  your  B.VSK ;  progninis  :md 
die  RfUl  from  SCOOO  to  SCFH-  is  left 
free,  since  this  area  is  used  extensively 
ft)r  machine  kuiguage  pnignuiis. 

Since  Inter  Mekxly  u.ses  the  system  in- 
teraipts,  it  does  not  work  well  during  in- 
put or  output.  However  you  can  experi- 
ment \v'ilh  the  iilea  of  jilaying  a  song 
wliile  die  computer  a  prognun.  Q 
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Brfnre  nping  this  program,  rwd  "How  w  Enter  Progrinis"  anJ  "Hii«'  Hi  Isc  ihc  Magame 
Enln'  ft'ogram."  The  B.\S1C:  pnij^-jnis  in  tlin  rujsiiini'  arc  anMabk-  un  di*  from  LoaiMar. 
P.O.  Box  .WOO",  Shrevcport.  L\  ~  11  il!  (Klir ,  1  .Sl)(l-8.<  I -JM  i. 


10 


15 


Inter  Melody  Code 

PRINT" [CLEAR, RIGHT14,RVS] 
INTER  MELODy"'BAAD 


FOR  AD=36818  TO  36863:READ  BYT 
:POKE  AD,BYT:S=S+BYT:NEXT' IFTO 
20  FOR  AD=679  TO  762:READ  BYT 

:POKE  AD,BYT:S=S+BYT:NEXT' IBSJ 

25  IF  S015719  THEN  PRINT"  [  D0WN2 ,  RVS] 
ERROR [RVOFFl  IN  DATA  STATMENTS" 
:END'GHXP 

100  DATA  120,160,0,132,155,132,158, 

169,144,133,156,169,152,133,159, 
173,20'BOQH 

105  DATA  3,73,150,141,20,3,173,21,3, 
7 3, 23 2, 14 1,2 1,3, 4 8, 7, 169 'BBPK 

110  DATA  15,141,24,212,16,3,140,24, 
212,88, 96, 0'BMAD 

115  DATA  206,249,2,240,3,76,49,234, 
169,16,160,32,141,11,212,14  0, 
18'BHRM 

120  DATA  212,160,0,162,1,177,155,157, 

7,212,177,158,157,14,212,230, 
155'BKQJ 

125  DATA  230,158,208,4,230,156,230, 
159,202,16,2  3  3,177,155,201,255, 
208,12'BNLO 

130  DATA  132,155,132,153,160,144,132, 
156,160,152,132,159,174,250,2,142, 

249'BPJL 


135 


DATA  2,169,17,160,33,141,11,212, 
140,18,212,76,4  9,23  4,1,0'BBPN 


fHD 


Inter  Melody 


100 


IF  PEEK(679)  O206  THEN  PRINT"  [RVSl 

STOP: [RVOFF]  LOAD  AND  RUN  IM  CODE 

FIRST";END'HJOK 

POKE  55,208:POKE  56 , 143 :CLR ' DOGA 
120  DIM  NT$(12) ,FR(12) :S=54272 

:BASE=36864:T=l:FOR  L=S  TO  S+24 

:POKE  L,0:NEXT'KUIN 

INPUT" [CLEAR, D0WN2] 

ENTER  THE  TWO  VOICE  NUMBERS"; A, B 

:A=(A-1) *7:B= (B-1)*7'HS00 

AD(1)=0:SR(1)=240:AD(2)=9:SRC2)=0 

:PH(1)=0:PL{1)=0:PH(2)=0 

:PL(2)=0' IHDQ 
150  WA=16:WB=32:TEMPO=15 

:REM  WAVEFORM  (16,32,64, 

128)  &  BEAT  (60TH  OF  SEC) ' EGBQ 


110 


130 


140 


160  INPUT" [D0WN2] HAS  THE  DATA  BEEN 

PROCESSED  (Y,N) ";A$: PRINT" [CLEAR] " 

: IF  A$="Y"THEN  350'FKFP 
170  FOR  1=1  TO  12:READ  NT$(I),FR(I) 

:NEXT'FSNI 
180  C=0:OC=4:REM  START  AT  4TH 

OCTAVE 'DXJL 
190  READ  C$:IF  C$="END"THEN  310'EIYI 
200  IF  C$="RES"THEN  HF%=0:LF%=0 

:GOTO  280'GPCD 
210  IF  C$="+"THEN  0C=0C+1 

:GOTO  190'GLHD 
220  IF  C$="-"THEN  0C=0C-1 

:G0T0  190'GLKE 
230  IF  VAL(C$)>0  THEN  290'EIRD 
240  FOR  1=1  TO  12'DEEC 

250  IF  C$=NT$(I)THEN  F=FR ( I ) : 1=12 ' FSI I 
260  NEXT:F=F/(2'' (7-OC)  )  'FLGH 
270  HF%=F/256:LF%=F-256*HF%'FSHK 
280  POKE  BASE+C,HF%:C=C+1 

:POKE  BASE+C,LF%:C=C+1 

:PRINT"[SHFT  W]";:GOTO  190'KIXT 
290  FOR  1=1  TO  VAL(C$)-1'FHTJ 
300  POKE  BASE+C,HF%:C=C+1 

:POKE  BASE+C,LF%:C=C+1 

:PRINT"[SHFT  W]";:NEXT 

:GOTO  190'LJKM 
310  H(T)=C:T=T+1:P0KE  BASE+C,255 

: PRINT 'GUVG 
320  IF(BASE+C) >=(BASE+2048)THEN 

PRINT" [RVS] ERROR: [RVOFF] 
OUT  OF  MEMORY" : END ' ISAO 
330  IF  T=2  THEN  BASE=BASE+204 8 

:GOTO  180'GSMI 
340  IF  H(1)<>H{2)THEN  PRINT" [RVS ] ERROR 

: [RVOFF]  NUMBER  OF  NOTES  DO  NOT 

MATCH": END 'GJFQ 
350  POKE  704,A:POKE  709, B 

:POKE  762,TEMPO'DVII 
360  POKE  692,A+4:POKE  753, A+4 

:POKE  688,WA:POKE  749,WA+1 

:REM  SET  WAVEFORM  A'lQIR 
370  POKE  695,B+4:POKE  756, B+4 

:POKE  690,WB:POKE  751,WB+1 

:REM  SET  WAVEFORM  B'lQFS 
380  POKE  S+A+5,AD(1) :POKE  S+A+6,SRC1) 

:P0KE  S+B+5,AD(2) :P0KE  S+B+6, 

SR(2) "MOSV 
390  POKE  S+A+2,PL(1) :POKE  S+A+3,PH(1) 

:POKE  S+B+2,PL(2) :POKE  S+B+3, 

PH ( 2 ) ' MOBW 
400  PRINT" [D0WN2] SYS (36818)  TO  TURN 

ON/OFF" 'BAEF 

996  DATA  C, 34 334 ,C# , 36376 ,  D, 
38539'BYWX 

997  DATA  D#, 40830,  E, 43258,  F, 
45830'BYOY 

998  DATA  F#, 43556,  G, 51443, G#, 
54502'BAIA 

999  DATA  A, 57743, A#, 61176,  B, 
64814 'BYQB 

ENii 
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Magic  Music 
Box 

for  the 
Commodore  64 


Here  is  a  true  music 
processor. 


JL  liis  program  can  litcnilly  prtxrcsis  a 
mclcxl\'  line!  \ou  will  sec  it  cat  tlic  melo- 
dy, digest  it  into  a  \';uiation  on  tlie  mekj- 
dy.  tlien  grind-out  tJie  niekxl\'.  Watch  liic 
notes  get  eaten  one  by  one.  I  Icar  ;uitl  see 
Magic  Music  Box  noodle-:iround  with 
tlie  mekxly  notes.  Watch  and  he;ir  tlie  in- 
ner workings  of  the  processor  box.  See 
tlie  nieliKly,  idl  pnK-es,scx1  iuid  raid)'  to 
play,  slKX)t  out  of  the  Magic  Music  Box 
( hust  note  first )  ;md  play  for  you.  Here  Ls  a 
true  music  pnxressor  prognmi. 

Type  in  a  mclod\\  using  the  number 
keys  (or  letters  tor  rests  in  tlTc  mekxl)- 
line),  LUid  hit  Hll  I'l IKN.  Or  just  hit  tlie  I- 1 
ke\'  iuid  get  a  melody  ;ill  ready  to  play. 
Now  die  .Magic  Music  Box  is  rc-atly  to 
pcrtbmi  its  magic  tor  you. 

Ihe  mekxl)'  i.s  eaten  a  note  at  a  time. 
Ivach  note  goes  down  the  melody  chute, 
tlin)ugli  tlie  flashing  lix-o-rator,  and  into 
tlie  processor  box.  Once  in  tlie  pnKcs- 
sor  lx)x.  tlic  note  Ls  no<xlled  witti  ttiree 
times  ;ind  tested  tor  placement  in  tlie  tln- 
Lslied  mekxly.  Each  note  in  die  original 
mekxl\'  will  g(j  tlinjugh  this  pnKressing 
procedure. 

Wlien  all  of  the  notes  are  in  tlie  Iwx 
and  ail  of  the  noodling  uitli  ;uid  place- 
ment of  notes  is  completed,  dien  tlie  mu- 
sic prtK'cssing  is  complete,  'llie  .Magic 
Music  Box  n(m'  memorizes  die  niekxK' 
just  processed  ;uid  prints  tlie  \';mation 
t^'pc  on  die  Ihint  of  the  processor  box. 

Now  that  die  variation  t)'pe  Ls  listed 
;ind  all  of  the  pnxessing  is  done,  tlie 
mekxiy  dn)p  chute  opens  and  die  tin- 
Lshed  mekxl)"  conies  .shtx)ting  out — List 
note  first  Finall)'  the  finished  mekxly  is 
played,  using  the  \ariation  xxpc  still  ILstcd 
on  the  front  of  die  processor  has.. 

Wh;it  is  reall)-  happening  Ix'hind  tlie 
scenes  is  a  fanc-\'  form  of  string  manipula- 
tion and  printing  of  altercd  strings.  Also,  a 
lot  of  color  and  ch;iracter  poking  is  (X- 


curring.  v\'idi  die  SID  chip  poking ;ls  \sell. 

Your  rtiekxl)-  (found  in  MS)  is  a  string 
of  numlxrs(alx)ut  ~5  of  diem )  from  zero 
to  nine.  Once  you  press  Rl"n  RN,  diis 
string  Ls  printed  and  a  space  is  added  to 
the  titmt  of  die  string  llien  die  string  is 
printed  ag;iin.  but  only  die  original  liiNS 
viilue  is  Lised.  Tliis  niiikes  die  last  chiinic- 
terof  die  string  not  print.  Hie  ( IJ'N(  A  S ) ) 
coupled  widi  die  ll:ITS  will  tk)  this — 
line  227  is  an  example.  'Ilie  string  is  real- 
ly growing  in  Icngdi  (it  is  tloiible  by  the 
end  of  diis  pnxess),  but  die  eftect  of  the 
operation  is  to  m;ike  die  string  .shrink! 
Ihis  gives  die  effect  of  eating  die  mekxl)'. 

llie  melcKl)'  chute  :ind  tlie  processor 
box  are  drawn  widi  stantLu'd  ke)board 
graphics,  llie  Ex-o-rator  is  a  graphic  with 
pokes  to  screen  color  memor)-  tt)  niiike  it 
flash. 

Tlie  prtxressing  of  die  mekxly  is  done 
widi  rapid  poke-s  to  die  ,SID  chip.  Hie 
numbers  in  the  processor  l>o.\  keep 
changing  places  and  colors.  'Hut  is,  die 
processing  operation  is  simply  more 
screen  and  color  menion,-  pjkes. 

The  melody  drop  chute  is  done  \\ith 
graphic  pokes  to  die  screen.  Ihe  mekxl)- 
that  comes  shot:)ting  out  of  die  pnx'es,sor 
Ikjx  Ls  achieved  by  printing  die  RKillTS 
of  die  mekxl)'  over  :uid  over,  one  more 
character  each  time,  until  the  whole 
niclod)'  is  printed  (tlie  \aluc  stored  in 
m\  MS). 

To  play  the  melody  after  it  has  been 
pnx;c-s.se(.l  is  ju.st  more  string  miuiipula- 
don.  It  suuts  widi  die  first  numlxr  in  die 
string  and  converts  it  to  .\SC;ii  c<xle  then 
to  screen  character  code  (a  difierence  or 
48.  of  HcxS30).  Now.  a  note  array  Ls  a-- 
ferenced  at  diLs  number  and  die  SID  chip 
is  poked  with  the  array  \':iriables  just  ac- 
cessed to  produce  the  correct  note. 
Then,  the  next  number  is  extracted  from 


die  mekxly  string  (using  die  MIDS  (unc- 
tion). ;uid  that  note  is  k)und  ;uid  pkued. 
'lliis  continues  until  die  entire  mekxl)' 
siring  has  Ix-en  pkued  ( or  LliN  .M S ).  /\Jter 
die  song  li:is  ended,  die  menu  screen  re- 
turns so  that  you  can  hear  the  same 
mekxly  in  a  different  v:iriation,  tn,'  a  new 
mekxl)'  k)r  input,  or  end  die  prognim. 

Ihe  \';iriations  are  ju.st  as  stated  ;uid  ;ill 
are  done  widi  more  string  manipulation. 
R)r\vard  reads  die  mekxl)-  string  just  as 
)'ou  input  it — tront  to  back  or  first  to  liLst. 
Back-ward  reads  the  string  from  last  note 
to  first  note — liackwiird. 

To  invert  a  number  string,  die  value  of 
each  number  (ch:inicter)  in  die  string  is 
founti  antl  sulitnicted  from  ten.  Ihis  will 
make  the  low  notes  be  die  higli  notes 
now,  ;uid  vice-\'ersi.  lliis  turns  the  melo- 
d)'  upside-tkmn — or  inverts  it. 

'ihe  inverted  and  back"w:ird  operation 
first  inverts  tlie  string  ( described  alxivc). 
dien  pla>s  it  last  note  to  first,  or  back- 
ward. Also  note  that  any  invert  oper- 
ations will  con\ert  ;in\'  letters  of  graphics 
in  die  mekxJ)-  string  to  colons  ajid  inter- 
pret diem  as  rests  in  die  music. 

^■our  input  of  die  Mekxly  String  must 
ix-  limited  to  two  line-s.  txxau.se  diat  Ls 
die  limit  of  die  IXIHT  .MS  nxidne  used 
in  die  pnigram.  \bu  will  find  diLs  long 
enougli  tor  most  mekxlics.  .\ls<.x  please 
stick  widi  nunilxrs  onh'  in  your  input 
string.  Ijctters  and  or  graphics  will  Ix'  ac- 
cepteti,  but  only  produce  rests  or  si- 
lences in  the  mekxl)'  when  playetl.  Ihey 
are  ;iLso  converted  to  colons  u-hen  ;uiy 
invert  operation  is  selected. 

llie  music  s')'steni  use-d  is  die  siuiie 
.sv'.stem  iLsed  in  numlx'ring  chord-organ 
I-xx)ks  marked  (iOrgim.  st)  ;tn)'  piece  in 
diL-se  l'xx)ks  which  is  not  tcxi  long  can  be 
input  into  diLs  pnjgram.  Also,  notes  with 
a  plus  after  dieni  or  any  note  numbers 
over  nine  c;ui  not  Ix'  plaved,  .so  choose 
carefiilh'.  llie  onlv'  thing  to  watch  closeh' 
Ls  the  note  values  in  diesc  Ixxiks,  needed 
to  ni:ike  die  rlivdim  of  die  melod\'  come 
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out  right  Below  is  a  conversion  diart  for 
all  of  the  note  values  and  types  you  ^viU 
find  in  the  melodies. 


Whole  note 


looks  like  this:  <J-  or  f  • 
uses  8  numbers  and 
looks  like  tliis:  o  onlv 


liiglitli  note 
Quarter  note 
I3ottcd-quarter 
Half  note 
Dotted-half 


uses  !  number  ;mtl 
looks  like  dits:  ^  or  <{ 
uses  2  numbers  and 
looks  like  this:  J  or  r 
uses  5  numbers  and 
kwks  like  tliis:  j.  or  f 
uses  4  numbei-s  ;uid 
looks  like  this:  J  or  f 
uses  6  numbers  ;ind 


Try  these  strings  for  melody  string  in- 
put; 

5556554433445550223344 
40  3  3  44555055565544  3  3  44 
5  5  5  0  2  2  0  0  5  5  0  0  3  3  1  1  11  10  2  3 

4  3  4  3  2  3  4  3  4  3  2  3  4  3  4  5  6  6  9  6  6  0 

5  6  545  6  98766056545  3  20  9  2 
203  3  303322111011102220 
22443  3  22111055505544  3  3 


30331 1 22443322  11111100 

Remember  that  the  note  ^•alucs  in  the 
melcxly  strings  are  made  to  play  the  cor- 
rect rh>tlim  by  using  die  note  value  con- 
version chart.  Some  conversion  exam- 
ples are  half-note  G  is  5555;  whole  note 
C  is  11111111  high-D  dotted-quarter  is 
999;  eighth  note  F  is  4;  and  eighth  A  is  6. 

Watch  Magic  Music  Box  do  its  tricks 
for  )Ou.  You  will  get  a  big  surprise  when 
you  end  the  program  with  selec^ion  six! 
Tr\'  processing  some  melodies  tcxlay.   B 


More  nping  ihis  progfam,  read  "Haw  ui  Enter  I'rujXJms"  aid  "How  in  I'sc  ihc  .Maipiinc 
Emn  Program '■  TTie  BASIt  pnigrams  in  this  msgizinc  arc  available  on  disk  from  toadstar. 
P.O.  Box  30007.  Shrcvtpon.  LA  ^11 JIMWOT,  1-800-83 1  •369i. 

M£^c  Music  Box 

10  PRINT" [CLEAR, BLUE, DOWN, SPACES, RVS, 
SPACE2]THIS  IS  THE  COMMODORE  64 
[SPACE2] "'BAFF 

20  PRINT" [RVS, RED] ","  MAGIC  MUSIC  BOX 

"'BBYD 
30  FOR  N=l  TO  9:READ  H,L:NH(N)=H 

:NL(N)=L:NEXT'HWPI 
40  DATA  16,195,18,209,21,31,22,96,25, 

30, 28, 4 9, 3 1,16 5, 33, 13 5, 37, 162 'BIGL 
50  POKE  54296, 10:POKE  53281,1 

:POKE  54277, 47:POKE  54278,12 

:BG=53280:POKE  BG,14'GXF0 
55  PRINT" [DOWN2,GRAyi,SPACE2] 

THIS  PROGRAM  TAKES  YOUR  MELODY, 

"'BAIQ 

60  PRINT"AND  FEEDS  IT  INTO  THE  MAGIC 

MUSIC  BOX"'BAIM 
65  PRINT"  WHICH  PROCESSES  IT, 
THEN  PLAYS  IT  :"'BAYR 

70  PRINT" [SPACES, GREEN] FORWARDS,  [RED] 
BACKWARDS ,  [BLUE] INVERTED , " ' BAPM 

75  PRINT" [SPACES, PURPLE] 

OR  BACKWARDS  AND[SPACE2] 
INVERTED. "'BACR 

80  PRINT" [D0WN2, RED] TYPE  A  KEY  TO  GO 
ON,  OR  TYPE  {RVS]F1[RV0FF] 
FOR  DEMO" 'BAXP 

85  M$=" 404505686401404545666401 404505 
68644090050866644" 'BCPT 

90  GET  A$:IF  A$=""GOTO  90'EHLI 

95  IF  AS=" [PI] "THEN  DEM0=1 
:GOTO  200'FLSQ 

100  PRINT" [CLEAR, D0WN2, BLACK, SPACE2] 
NOW,  TYPE  IN  A  SERIES  OF 
NOTES" 'BABF 

105  PRINT" [SPACE4] USING  THIS[SPACE2] 

SYSTEM: [DOWN] " 'BASG 
110  PRINT" 1=MID-C" ,"2=D" , "3=E" , "4=F" 
:PRINT"5=G","6=A","7=B", 


"8=HI-C"'CHDG 
115  PRINT"9=HI-D" , "0=REST" ' BBSE 
120  PRINT" [D0WN2] TYPE  YOUR  MELODY, 
THEN  THE  [RVS] RETURN [ RVOFF] 
KEY" 'BAII 

125  PRINT" [RED, RVS]  LESS  THAN  TWO 
LINES,  PLEASE!  [BLACK , RVOFF] " 
: INPUT  M$'CDHM 

130  PRINT" [CLEAR, D0WN2, RED]  NOW, 
SELECT  THE  WAY  YOU  WANT  IT 
PLAYED  FROM  THE  FOLLOWING :"' BANP 

140  PRINT" [D0WN2, GREEN]  1=F0RWARDS" 

: PRINT" [RED]  2=BACKWARDS" 

: PRINT" [BLUE]  3=INVERTED" ' DCYK 


150 

155 

160 
165 

170 
180 

200 

210 

220 

226 
227 

228 


BOTH  2  AND 
INPUT  NEW 


3" 


6=END  PROGRAM [BLACK] 


PRINT" [PURPLE] 

:PRINT" [BLACK] 
MELODY" 'CBHL 

PRINT" [BROWN] 
"'BAJK 

INPUT  W$:W=VAL(W$) 'DILE 

IF  W>6  OR  W<0  THEN  PRINT"I'LL 

ASSUME  YOU  WANTED  FORWARDS" 

:W=1'HHAV 

FOR  D=l  TO  1000: NEXT 'EHAF 

ON  W  GOTO  200,300,400,500,100, 

600'CYSI 

REM  PLAY  THE  MELODY 
**-FORWARDS-**'BCRD 

PRINT" [CLEAR, D0WN2]"," [SPACE2,RVS, 
GREEN, SPACE21 FORWARDS [SPACE3 , 
D0WN2]":P0KE  BG,5:G0SUB  700'DKDF 

PRINT," [DOWN, BROWN] 

IT  GOES  IN  HERE! ! [GRAYl] " 
:PRINT  M$:FOR  D=l  TO  500 
:NEXT  D'GMHJ 

A$=M$:F$=M$:PRINT" [H0ME,D0WN7] "; 
h$) 'DOJJ 

P=LEN(A$)-1:F0R  T=l  TO  LEN(A$) 
:A$="  "+LEFT$(A$,P)+"  [SHFT  N] 
"'LWUS 

PRINT" [H0ME,D0WN7] ";A$; 
:FOR  D=l  TO  34:NEXT  D 
:FOR  K=l  TO  3:G0SUB  800 
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:POKE  BG,6:G0SLJB  700'DKTH 

:NEXT  KfT'KXTR 

420 

PRINT," [DOWN, BROWN] 

229 

PRINT," [ HOME, DOWN10,RIGHT1 5, GREEN] 

IT  GOES  IN  HERE! ! [GRAYl] " 

FORWARDS [DOWN] ": POKE  1344+1,32 

:PRINT  M$:FOR  D=l  TO  500 

:GOSUB  900'EOJR 

:NEXT  D'GMHL 

230 

FOR  T=0  TO  LEN(M$) :T$=RIGHT$(M$,T) 

426 

A5=M$:F0R  T=l  TO  LENCM$) 

: PRINT" [HOME,DOWN13)"SPC(8)  " 

:S=10-(VAL(MID$(M$,T,1) ) ) 

[SHFT  M]  "T$' lUBK 

:I$=I$+CHR$(S+48) :NEXT'ONGX 

231 

FOR  0=1  TO  50:NEXT:NEXT 

427 

PRINT" [H0ME,D0WN7] "A$; :P=LEN(A$)-1 

:FOR  D=l  TO  500 : NEXT ' JNAI 

:F0R  T=l  TO  LEN (A$) 

235 

FOR  Q=l  TO  LEN(M$)'EGVH 

:A$="  "+LEFT$(A$,P)+"  [SHFT  N] 

" ' MBRW 

PRINT" [H0ME,D0WN7]";A$; 

240 

G= (ASC(MID${M5,Q,l))-48) "EPVF  . 

428 

250 

IF  G<0  OR  G>9  THEN  G=0'GGBG 

:F0R  D=l  TO  34:NEXT  D 

260 

POKE  54273, NH(G)  :POKE  54272, NL(G) 

:FOR  K=l  TO  3:G0SUB  800 

:POKE  54276, 33'DHWK 

:NEXT  K,T'KXTT 

270 

FOR  D=l  TO  77:NEXT  D:POKE  54276,32 

429 

PRINT," [HOME, DOWN 10, RIGHT 15, BLUE] 

:NEXT  Q'GRXK 

INVERTED [DOWN] ": POKE  1344+1,32 

280 

FOR  X=l  TO  1234:NEXT:POKE  54273,0 

IGOSUB  900'EODT 

:POKE  54272,0: IF  DEMO  THEN 

430 

FOR  T=0  TO  LEN (M$) :T$=RIGHT$ (I$,T) 

RUN' JDYP 

:PRINT" [H0ME,D0WN13] "SPC(8) " 

290 

GOTO  130'BDDG 

[SHFT  M]  "T$' lUWM 

300 

REM  PLAY  THE  MELODY 

431 

FOR  D=l  TO  50:NEXT:NEXT 

**-BACKWARDS-** ' BDEF 

:FOR  D=l  TO  500 : NEXT ' JNAK 

435 

FOR  Q=l  TO  LENtM$)'EGVJ 

310 

PRINT" [CLEAR, D0WN2] "," [SPACE2,RVS, 

440 

G=10-(VAL(MID$ (M$,Q,1) ) ) 'EPJH 

RED, SPACE2] BACKWARDS! [SPACE2, 

460 

POKE  54273,NH(G)  :POKE  54272, NL(G) 

D0WN21":P0KE  BG,2:G0SUB  700'DKRG 

:POKE  54276, 33'DHWM 

320 

PRINT," [DOWN, BROWN] 

470 

FOR  D=l  TO  77:NEXT  DrPOKE  54276,32 

IT  GOES  IN  HERE! ! [GRAYl] " 

:NEXT  Q'GRXM 

:PRINT  M$:FOR  D=l  TO  500 

480 

FOR  X=l  TO  1234:NEXT:POKE  54273,0 

:NEXT  D'GMHK 

:POKE  54272, 0:GOTO  130'HCJP 

326 

A$=M$:FOR  T=LEN(M$)TO  1  STEP-1 

500 

REM  PLAY  THE  MELODY  **-INVERTED 

:B$=B$+MID$(M$,T,1) :NEXT 

AND  BACKWARDS-** 'BOFK       " 

:PRINT" [H0ME,D0WN7] "A$; ' MFVT 

510 

PRINT"  [CLEAR,  D0WN2]  '*  ,  "  [LEFT3] 

327 

P=LEN(A$)-1:F0R  T=l  TO  LEN(A$) 

[RVS, PURPLE]  INVERTED  &  BACKWARDS 

:A$="  "+LEFT$ (A$,P)+"  [SHFT  N] 

[D0WN2] ":POKE  BG,4:G0SUB  700'DKJN 

" ' LWUT 

520 

PRINT," [DOWN, BROWN] 

328 

PRINT" [H0M£,D0WN7] ";A$; 

IT  GOES  IN  HERE! ! [GRAYl] " 

:F0R  D=l  TO  34:NEXT  D 

:PRINT  M$:FOR  D=l  TO  500 

:FOR  K=l  TO  3:G0SUB  800 

:NEXT  D'GMHM 

:NEXT  K,T'KXTS 

526 

A$=M$:FOR  T=LEN(M$)TO  1  STEP-1 

329 

PRINT," [HOME, DOWN 10, RIGHT 14, RED] 

:S=10-(VAL(MID$ (M$,T,1) ) ) ' LDQU 

BACKWARDS [DOWN] ": POKE  1344+1,32 

527 

IB$=IB$+CHR$(S+48) iNEXT'FMVN 

:GOSUB  900'EOVS 

528 

PRINT" [H0ME,D0WN7] "A$; :P=LEN(A$)-1 

330 

FOR  T=0  TO  LEN (M$) :T$=RIGriT$ tB$,T) 

:FOR  T=l  TO  LEN (A$) 

:PRINT" [H0ME,D0WN13] "SPC(8) " 

:A$="  "+LEFT$(A$,P)+"  [SHFT  N] 

[SHFT  M]  "T$'IUPL 

"■MBRY 

331 

FOR  D=l  TO  50:NEXT:NEXT 

529 

PRINT" [HOME,D0WN7) ";A$; 

:F0R  D=l  TO  500 :NEXT ' JNAJ 

:FOR  D=l  TO  34:NEXT  D 

335 

FOR  Q=LEN(M$)T0  1  STEP-1'GHXK 

:FOR  K=l  TO  3:G0SUB  800 

340 

G=(ASC(MID$(M$,Q,l))-48) ' EPVG 

:NEXT  K,T'KXTV 

350 

IF  G<0  OR  G>9  THEN  G=0'GGBH 

530 

PRINT," [HOME,DOWN10,RIGHT13, 

360 

POKE  54273, NH(G) :POKE  54272, NL(G) 

PURPLE]  INVERT  £.  BACK  [DOWN]" 

:POKE  54276, 33'DHWL 

:P0KE  1344+1, 32:GOSUB  900'EOGN 

370 

FOR  D=l  TO  77:NEXT  D:POKE  54276,32 

531 

FOR  T=0  TO  LEN(M$) :T$=RIGHT$(IB$, 

:NEXT  Q'GRXL 

T) :PRINT" [H0ME,DOWN131 "SPC(8) " 

3  80 

FOR  X=l  TO  1234:NEXT:POKB  54273,0 

[SHFT  M]  "T$'IVNO 

:POKE  54272, 0:GOTO  130'HCJO 

532 

FOR  D=l  TO  50:NEXT:NEXT 

400 

REM  PLAY  THE  MELODY 

:FOR  D=l  TO  500:NEXT' JNAM 

**-INVERTED-** 'BCKF 

535 

FOR  Q=LEN(M$)TO  1  STEP-1 'GHXM 

410 

PRINT" [CLEAR, D0WN2] " , " [S PACE2 , RVS , 

540 

G=10-(VAL(MID$(M$,Q,1))) 'EPJI 

BLUE]  INVERTED!!  [D0WN2]" 

Contwiiect  on  pg.  I2J 
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Instant  LOAD 
and  Directory 

for  the  Commodore 
64 


Xiistmit  LOAD  ;uid  Diircton-  atkLs  a  fliU- 
fcatiircd  directon-  and  di.sk  command  to 
BASIC  At  tlie  touch  of  a  key,  ;m\-  pro- 
gnuii  in  tJic  director)'  will  Ix-  loatlcd  and 
nm.  'IliL'  DIR  conmiimd  has  ojitions  for  a 
dua]  drive,  dri\e  #9.  and  even  extra  long 
directories.  Botli  comni;md.s  c;ui  ;ilso  be 
used  witliin  a  prognuii. 

The  Directory 

[  )l  Kj  il  ]|  .device  number  ] 

'llie  alx)ve  d  Ls  option;il  ;u:d  c;ui  be  a 

dri%e  number  or  string  ius  in  tlie  follow- 

inj;  examples. 

DIR  jrem  list  dLsk  director)- 

DIRl  :rem  director)' firom  dual 

drive  1 
DIR"SO:P*^     xcm  director)-  of  programs 

tliat  start  witlT  i' 
DIR.y  -.rem  director)-  from  device 

nunilxrr  9 
DIR  1,9  :rem  director)-  fn)m  dii;il 

drive  # I.  device  #9 
Often  a  long  director)-  scnjlLs  off  tlie 
scR'cn  Ix'forc  yon  ha\e  a  chajice  tt)  rc-ad 
it.  'lb  .solve  tlie  ]>roblem,  ackl  ;in  exclama- 
tion mark  before  tlie  DIK  conimanti  ;uid 
tlie  computer  will  \\-:ui  for  )oli  to  pre-ss  a 
kc)'  Ix'forc  listing  e-ach  line  of  tlie  direc- 
tor\'.  'Ilie  exclamation  m;irk  can  lie  add- 


Add  a  full-featured 
directory  and  disk 
command  to  BASIC 


cd  bcfiire  ;in\'  DIR  command.  For  cx:uii- 

pic, 

IDIR 

!D1R"S1:E*",9 

The  Disk  Command 

'llie  DISK  comm;uid  i.s  used  to  .send 
commiuids  to  die  disk  drive  ;uid  read  llie 
ern)r  channel.  See  your  disk  drive  man- 
ual for  a  list  of  disk  comm:mds. 
DISK] "disk  comm;md''][.de\ice  numlx-r) 
DISK"I();"  :rem  initi;ilize  drive  0 

DISK  :rem  read  disk  error 

channel 
I)ISK9  :rcm  read  ermr  fhim  disk 

drive  #9 
DLSK"V0:",9       :rem  send  comni:uid  to 

de\-ice  #9 

Using  Dir  and  Disk  within  a 
Program 

So  tliat  B/VSIC  will  not  be  slowed,  the 
computer  onh'  checks  for  die  DIR  :uid 
DISK  commiuids  in  direct  mode.  I  lowe\- 
er,  )-oii  c;in  still  use  tiiese  conini;uids  In  a 
prognim  line  v\-ith  tlic  help  of  Uie  S\S 
comni;tnd.  S^'S  -i9183  must  be  the  state- 
ment before  each  DIR  or  DISK  com- 
iii;uid.  I-or  ex;unple. 
10  SYS  ■i9183;DIR:STS  -t9I8.3:DISK'10r 
Ilie  S'^'S  tells  die  computer  to  check  the 
next  stJitement  for  a  DIR  or  DISK  com- 
mimd. 


You  can  now  use  tlie  luncdon  keys  to 
instand)-  load  ;ui)-  program  from  die  di- 
rector)-. Simpl)-  ILst  die  director)-  on  die 
screen  and  move  tlie  cursor  up  tlie  left 
side  of  tlie  screen  to  tlie  prognuii  )-oi.i 
w'ant  to  load  ai-Jd  press  1-1.  Your  pn)gnuii 
will  tlicn  be  loaded  and  automatic.illy 
run. 

On  the  screen,  a  directorv-  entn'  wiU 
look  like  this. 

1 5  FAVORJTE  PROGRAM"  PRG 
All  we  need  to  make  a  LOAD  commiuid 
out  of  the  above  director)-  line  is  to  add 
die  ke)-\\-ord  LOAD  luid  a  ".H"  at  die  end. 
ThLs  is  what  happeas  when  )-ou  press  1- 1 . 
In  addition,  a  retimi  ;uid  die  ke)-\\-ord 
RUN  are  placed  in  die  ke)"v\'ord  bufter  .so 
the  piiogram  will  stan  aiitomatic;dl)'.  Tlic 
odier  Ilinction  ke)-s  ;ire  used  for  odier 
kjad  options  and  a  director)-. 
1-1  =  LOAD  ,8:  RUN 

F3  =  LOAD  ,8,1: 

F5  =  LOAD  ,8: 

F7  =  IDIR 

Notice  d-iat  Fl  is  the  only  one  that 
automaiic:dl)  mas  a  pn)gnun.  1'3  is  for 
machine-langui^e  pn>grams,  and  F^  is  a 
quick  wa)-  to  get  a  director)-.  .\lso  note 
that  Instant  LOAD  and  Director)  wilt 
onl\-  -work  in  direct  mode.  (Sometimes 
when  )()U  break  out  of  a  iirogr.uii.  )on 
will  need  to  use  a  commiuid  like  PRINT 
to  .set  die  flags  for  direct  nnxJe. ) 

Before  you  can  use  Instant  LOAD  ;uid 
Directory-  you  will  need  to  load  it.  How- 
ever, once  in  memon-  :dl  odier  k>ad  wilt 
be  done  inst;uilly! 
LOAD"DIR",8 
RL^ 

(L'se  S\'S  49152  to  rest;u1  function  ke)S 
after  RUN/S'IX  )P-RI-.STOIU:. )  jfl 


Before  liping  this  pnigram.  read  •Hem  in  linicr  ftograms"  aixl  "How  W  l'^  Ihc  Mjgwinc 
tnirj'  Pnigrara."  Tht  BASIC  paiRrams  in  iliii  nuip/ine  an-  a\iiilablc  im  diit  from  U]adsur. 
P.O.Box  50flO".Shre\-cpon,U"ll  WMXr,  l-SOO-SM-iWl 

Instant  Load  and  Directory 

10  POKE  53280, 0:POKE  53281, B'CPLB 
20  PRINT  CHRS (147) :PRINT'DGGB 
30  PRINT  TAB (7) "INSTANT  LOAD  AND 

DIRECTORY" ' CCTH 
40  PRINT:PRINT  TAB(9)"BY  BENNETT 

COOKSON  JR. ": PRINT: 'EFEJ 
50  PRINT  "COMMANDS" 'BARD 
60  PRINT  CHRS (30) :PRINT"DIR[SPACE6] 

:REM  LIST  DIRECTORY" ' DFHL 
70  PRINT"!DIR[SPACE5]  :RE[^  SLOWLY  LIST 

DIRECTORY" ' BAVM 
80  PRINT"DISK[SPACE5] :REM  READ  DISK 

ERROR" 'BAYL 
90  PRINT"DISK";CHR$(34) ;"S0 


100 

110 

120 

130 

140 

150 
160 

170 

180 


:PRG";CHR$(34) ;" [SPACES] 
:REM  SEND  DISK  COMMAND" ' DMMS 

PRINT: PRINT: PRINT" FUNCTION 

KEYS" 'DCNB 

PRINT" (PLACE  CURSUR  ON  PROGRAM  TO 

LOAD) "'BACF 

PRINT: PRINT"F1  :  LOAD  &  RUN 

PROGRAM" 'CBIE 

PRINT"F3  :  LOAD 

1) "'BADE 

PRINT"F5  :  LOAD 

RUN) " 'BAEG 

PRINT"F7  :  !DIR"'BAYC 

PRINT: PRINT: PRINT"READING 

DATA. , ."; 'DDTH 

FOR  1=49152  TO  49768:READ  A 


ML  PROGRAM  ( 
PROGRAM  (NO 


8, 


POKE  I,A:C=C-t-A:NEXT' IWQL 


IF  C074434 
DATA,  CHECK 


THEN  PRINT"ERROR  IN 
FOR  TYPOS " : END ' GHDQ 
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185  FOR  X=l  TO  7:READ  A:POKE  630+X,A 
:NEXT'HMUP 

189  POKE  198,7'BFFN 

190  SYS  49152:END'CGRG 

200  DATA  120,169,23,160,192,141,8, 

3'BBFB 
210  DATA  140,9,3,169,191,160,193, 

141'BCNC 
220  DATA  143,2,140,144,2,88,96, 

166 'BARD 
230  DATA  58,232,240,3,76,228,167, 

160'BCSE 
240  DATA  1,140,104,194,177,122,201, 

33'BDUF 
250  DATA  208,8,169,240,141,104,194, 

200 'BEAH 
260  DATA  177,122,201,68,208,230,200, 

177'BFAI 
270  DATA  122,201,73,208,223,200,177, 

122'BFNJ 
280  DATA  201,82,208,6,32,91,192, 

76'BAQJ 
290  DATA  174,167,201,83,203,206,200 

177'BFGL 
300  DATA  122,201,75,208,199,32,79, 

193'BDYC 
310  DATA  76,174,167,32,115,0,136, 

208 'BCOD 
320  DATA  250,44,104,194,80,7,169, 

40'BBOE 
330  DATA  160,194,32,25,194,32,204, 

255'BDLF 
340  DATA  169,120,32,195,255,32,115, 

0'BCGG 
350  DATA  240,33,32,158,173,36,13, 

4  8 'BBMH 
360  DATA  16,32,161,183,224,1,208, 

19'BBGI 
370  DATA  169,2,162,102,160,194,76, 

161'BDNJ 
380  DATA  192,32,163,182,166,34,164, 

35'BDSK 
390  DATA  76,161,192,169,2,162,100, 

160'BDJL 
400  DATA  194,32,189,255,32,121,0, 

240'BCHD 
410  DATA  4,32,155,183,44,162,8, 

169'BAUE 
420  DATA  120,160,0,32,186,255,32, 

192'BCCF 
430  DATA  255,144,4,170,76,55,164, 

32'BBRG 
440  DATA  204,255,162,120,32,30,225, 

32'BDSH 
450  DATA  140,193,32,36,225,32,36, 

225'BCHI 
460  DATA  32,36,225,240,34,32,35, 

225'BBEJ 
470  DATA  170,32,36,225,32,205,189, 

16  9' BDS  K 
480  DATA  32,32,210,255,32,36,225, 


32'BBXL 

490  DATA  210,255,208,243,169,13,32, 

210'BEAN 
500  DATA  255,32,250,192,76,205,192, 

76'BDWE 
510  DATA  182,193,32,204,255,44,104, 

194'BEHG 
520  DATA  80,16,169,0,133,198,165, 

145'BCVG 
530  DATA  16,17,165,198,240,248,169, 

0'BCYH 
540  DATA  133,198,165,145,16,5,162, 

120'BDMI 
550  DATA  76,30,225,32,182,193,56, 

76'BBXJ 
560  DATA  75,168,32,121,0,201,44, 

208'BBCK 
570  DATA  4,32,155,183,44,162,8, 

134 'BAML 
580  DATA  87,32,204,255,169,120,32, 

195'BDSM 
590  DATA  255,169,0,32,189,255,169, 

120'BDXN 
600  DATA  166,87,160,15,32,186,255, 

■ 32'BCVF 
610  DATA  192,255,144,63,76,187,192, 

32'BDEG 
620  DATA  115,0,136,208,250,32,115, 

0'BBQH 
630  DATA  240,68,201,44,240,70,32, 

158  'BCGI 
640  DATA  173,32,163,182,72,165,34, 

72'BCRJ 
650  DATA  165,35,72,32,34,193,162, 

120'BCJK 
660  DATA  32,24,225,104,133,35,104, 

133'BDSL 
670  DATA  34,104,170,160,0,177,34, 

32'BBYM 
680  DATA  210,255,200,202,208,247,76, 

204'BFTO 
690  DATA  255,155,215,96,32,36,225, 

133'BDSO 
700  DATA  215,32,183,255,240,243,104, 

104  'BFSH 
710  DATA  165,186,201,8,208,24,32, 

45'BBNH 
720  DATA  193,76,167,193,32,34,193, 

162'BDDI 
730  DATA  120,32,30,225,32,36,225, 

32 'BBS J 
740  DATA  210,255,201,13,208,246,32, 

204'BEOL 
750    DATA    255,169,120,32,195,255,96, 

166'BEYM 
760    DATA    58,232,208,10,165,203,197, 

197'BEPN 
770    DATA    240,4,201,7,144,3,76,72'BXLM 
730    DATA    235,201,3,144,249,133,197, 

201'BEAP 
790    DATA    3,208,10,169,88,160,194, 
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32'BBRP 

800 

DATA  25,1 

160'BCTH 

810 

DATA  0,24 

160'BBII 

820 

DATA  194, 

5'BCIJ 

830 

DATA  20  8, 

25'BBWK 

840 

DATA  194, 

208'BCBL 

850 

DATA  2,16 

194'BBHM 

860 

DATA  157, 

66 ' BCUN 

870 

DATA  235, 

200'BGBP 

880 

DATA  177, 

96'BEAQ 

890 

DATA  80,8 

900 

DATA  8  9,3 

910 

DATA  76,7 

920 

DATA  2  9,2 

930 

DATA  29,2 

940 

DATA  56,5 

950 

DATA  147, 

960 

DATA  8  5,7 

1 ' BAHO 

970 

DATA  144, 

94,76,1,194,166,214, 

,32,240,255,169,56, 

32,25,194,165,203,201, 

7,169,83,160,194,32, 

162,1,165,203,201,4, 

2,6,134,198,189,93, 

118,2,202,208,247,76, 

133,189,132,190,160,255, 

189,32,210,255,208,248, 

2,69,83,83,32,65,78'BXNQ 
2,75,69,89,13,13,0'BWIH 
9,65,68,29,29,29,29'BXZJ 
9,  29, 29, 2 9, 29, 29, 29 'BXPK 
9,29,29,29,29,29,44 'BXML 
a,0,157,44,49,58,0'BWFL 
3 3, 68,  73, 82, 0,13, 82 'BXXM 
8,58,13,36,48,36,49, 

14 5, 145, 14 5, 63, 30, 13 'BYIP 

END 


THE  AMAZING 

V€iCC  M  ASTEC 


ENJER 

THE  FINAL 

FROmiER 

OF 

MAN-TOMACHINE 

COMMUNICATIONS 

There  is  noth  ng  else  like 
it.  Voice  Master  gives 
both  speecti  output 
am  voice  recognition  witti  this  single  tiarOware  product!  Vcuji  voice 
controis  programs,  or  tiome  appliances,  robots,  arid  more  witti  spoken 
commonas  Veftx3l  response  txick  gives  status,  verities,  or  requests  your 
reply!  SpeecT  output  ana  recogn  ition  patterns  are  recordea  in  witfi  your 
voice  Or  use  the  voice  ol  your  friend,  boss,  teoctier.  mother,  even  tne 
(amily  pet!  Programming  is  simple  with  new  commands  added  to  SASIC, 
A  music  bonus  program  lets  vou  write  orvi  compose  musical  scores 
simply  by  humming  the  tune.  Unlimited  applications  tor  (un,  education, 
and  commercial  use.  Design  your  own  programs  for  profit.  Speech  ond 
recognition  quqiity  unsurpossed  by  even  the  most  sophisticated 
machines.  Only  Covox  provides  this  high-tech  marvel  at  a  price  less  than 
most  common  peripherals 

The  Covox  Voice  Mostefcomescompletewitholl  hardvrare  and  software 
fof  only  S89.95.  (Add  54  shipping  and  handling  icy  USA.  S6  Conoda.  S10 
over  seas.)Available  for  Commodore  M/128.Appiell,  li*.  lie,  He.  Atari  600, 
800XL.  130  XE.  Specify  when  ordering.  Viso.  fvtosteiCard  phone  orders 
accepted 

Call  or  mite  for  FREE  Voice  Master  Inlopak 
and  special  combination  paclcage  otters. 

COVOX  iNC.DEPT.  CM 

6750  Conger  Street    •   Eugene.  Oregon  97402   •    USA 
Aiea  Code  (503)  342- 1271   «  Tele>  70601 7  ( Av  Alorm  UP) 


Tools  for  Today 


Children  are  the  hope  for  America's  future.  Providing  meaningful  educational 
opportunities  to  increase  their  ability  to  succeed  in  the  world  of  tomorrow  is 
the  most  demanding  challenge  we  face.  Our  success  as  parents  and 
teachers  to  meet  this  challenge  will  not  only  help  the  United  States  maintain 
its  position  of  leadership  in  a  world  of  high  technology,  but  also  it  is  the 
greatest  legacy  we,  as  adults,  can  leave. 


We  are  proud  to  announce  our 
continuing  support  of  the 
Commodore  64  as  the  mainstay  of 
our  educational  program.  With  the 
wide  array  of  educational  software 
available,  the  Commodore  64  is  a 
classroom  tool  designed  to 
encourage  students  to  excel  in  such 
areas  as  reading,  writing,  science 
and  mathematics. 

For  those  who  need  a  computer 
designed  to  meet  advanced 
educational  applications,  we  offer 
our  Commodore  128  Personal 
Computer.  The  Commodore  128 
Personal  Computer  reflects  our 
commitment  to  education  by  being 


totally  compatible  with  Commodore 
64  software.  This  allows  you  to 
utilize  all  of  your  Commodore  64 
educational  programs  for  two 
computers.  A  great  way  to  save 
money!  Features  of  the  Commodore 
128  Personal  Computer  include 
built-in  128K  of  memory,  an  80/40 
column  option,  a  special  numeric 
keypad  and  a  built-in  CP/fvl™ 
operating  system. 

Commodore  is  dedicated  to  seeking 
ways  to  foster  a  spirit  of  educational 
adventure  and  support  the 
home  school  connection. 


COMMODORE  IN  EDUCATION 


McGuffy's 
Grader 

IS  HERE! 

GUARANTEED  TO  DO  EVRRYTHIN'q 

YOU  HAVE  EVER  WANTED  IN  A 

CRADEBOOK.  PROGRAM. 

SUITABLE  FOR  ALL  TEACHERS. 
BLEMENTARY  THROUG}!  COLLEGE. 

TOO  MANY  FEATURES  TO  UST  HERE. 
CALL  TOU^FREE  FOR  DETAILS 
AND  SPEOAL  TRADE-IN  OFFER 

ONLY  $49J0  PLUS  S2.00  SHIPPING. 


FOR  APPLE  HE.  nc 

COMMODORE  128 

COMMODORE  64 

IBM  IS  COMING  SOON 


FREE  30  DAY  SCHOOL  TRIAL 

VISA/MASTERCARD 

I -800-422 -0095 

MICHIGAN  AND  AFTER 

5:00  PM.  CALL  (313)  477-0897 

MIDWEST  SOFTWARE 

BOX  214,  FARMINGTON,  MI  48024 


WIN  YOUR 
STATE 
LOTTO 

With  Your  Computer 


WHY  USE  LUCK  TO  SELECT  YOUR  LOTTO 
NUMBERS?  This  fun  to  use  computer  pro- 
gram for  most  tiome  computers  will  quickly 
tell  you  what  riumbers  are  'due',  any  patterns 
and  trends,  wtiat  groups  to  pfay  and  morel 
Make  your  selections  based  on  the  laws  of 
probability  and  INCREASE  your  chances  of 
winning!  NO  RANDOM  NUMBERS,  this  pro- 
gram performs  an  actual  ANALYSIS  of  the 
past  30  drawings!  You  select  the  most  likely 
choices,  (It's  not  likely  others  will  select  ttie 
same  one  you  do  either).  You  keep  the  data 
up  to  date  by  simply  adding  the  latest  win- 
ners! Works  for  all  states  and  Canada. 

SOFT-BYTE 
P.O.  Box  556  F.  Pk, 
Dayton,  OH  45405 
(513)233-2200 

Fast  service  on  charge  cards,  checks  or 
money  orders.  Only  $21.95  for  these  com- 
puters—Commodore 64/128,  Apple,  IBM-PC, 
Atari,  TRS-eo,  and  the  Super  Macintosh  ver- 
sion is  S29.95.  Please  add  Si. 50  shipping. 
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interest 

If  you're  interested  in  sports,  you  can 
share  comments  with  others  in  the 
S|X)rLs  Center.  You'll  find  Pro  Picks  dur- 
ing each  .season  or  drop  hy  tlie  Gnmd- 
stand  to  discuss  viirious  popular  sports 
any  time  of  the  year. 

The  Fun  &  Games  area  provides 
instnictioiYS  tor  tlie  on-line  Q-link  games 
and  toumamenLS.  You'll  also  lind  Trivia 
Quizzes,  or  you  can  share  jokes  in  Tlie 
Funny  Bone. 

Tlie  Treasure  section  is  where  you  can 
order  tlie  video  Uipc  or  IxK)k  for  clues  to 
finding  die  buried  treasure.  You'll  :l1.so 
find  infomiation  about  tlie  treasure  :md 
rules  tor  the  treasure  hunt.  Tlicre's  e\'en  a 
message  board  where  users  are  sharing 
clues  with  each  other  iUong  witli  hclptiil 
hints. 

The  Rocklink  section  of  [ust  l-'or  I'un  is 
probably  one  of  tlie  more  exciting  areiLS. 
There  are  theme  conferences  every 
night,  plent}'  of  music  re\iew,s,  a  top-.sell- 
ers  ch:irt.  industn'  news  :uid  Iiot  head- 
lines, plus  the  daily  news  beat.  The\'re 
even  starting  to  hold  live  conferences 
with  various  rock  stars  on-line.  Tliere 
were  three  in  one  montli  back  in  No- 
vember, witli  more  tx'ing  scheduled  ;ill 
tlie  time.  You  can  check  tlie  Best  Bct,s — 
Don't  Miss  section  of  Customer  .Scnicc 
for  announcements  of  upcoming  Rock- 
link  conferences. 

Just  after  writing  this  column  I'll  lie  off 
to  Toronto  for  the  World  of  Commodore 
show,  gatliering  new  product  infomia- 
tion  for  my  section  of  CLN.  I  was  fortu- 
nate enough  to  make  this  show,  but  iii}- 
fijll-time  work  schedule  doesn't  allow  me 
to  make  it  to  even'  show  where  inlbrma- 
tion  on  CommcxJore  prcxlucts  is  likely  to 
appe-.ir.  If  you  happen  to  attend  a  show  or 
dull  gathering  wliere  new  prcxlucts  are 
shown  or  discussed.  ^\w  not  dnjp  by  tlic 
New  Product  Information  area  and  let 
everyone  else  know  what's  coiTiing? 

Ixjoks  like  tliat's  it  for  tliis  mt)ntli.  I'm 
tn-ing  to  gel  some  additional  infomiation 
on  Habitat  as  well  as  whatever  hints  of 
new  features  or  services  ;irc  on  tlie  hori- 
zon. In  die  mean  time,  let  me  know  if 
you  have  ;tny  questions  or  suggestions 
alx)ut  this  column.  rn 


Bob  Baker  is  in  chai-ge  of  the  New  Ptrxl- 
ttcts  Information  area  on  the  Qiian- 
titmUnk  iietuxjrk.  He  can  Ik  reached  on 
Q-Link  via  E-mail  addressed  to 
RBAKER 


SILICON  VALLEY 


Continued  from  pg.  18 

Amiga's  resolution  modes.  Also  included  is 
a  font  mover  utility  that  ■wUllet  you  install 
the  new  fonts  on  to  any  disk. 

Datasoft  lias  finished  the  'Video  Title 
Shop  for  the  64.  This  program  lets  you 
create  professional  looking  titles  for  your 
home  video  tapes.  You  can  use  it  to  add 
credits,  titles  and  introductions  to  your 
home  productions,  giving  them  a  polished 
personal  touch. 

'Westcom  Industries  has  finally 
released  HardHat  for  the  Amiga.  This 
hard  disk  backup  utility  is  an  essential 
part  of  the  data  protection  routine  that 
any  business  professional  should  be 
following.  If  yo'a've  got  10, 20  or  mors 
megabytes  of  data  residing  on  a  hard  disk 
drive  with  no  backup,  you're  flirting  with 
danger.  HardHat  uses  data  compression 
techniques  to  store  data  on  floppies  in  less 
space,  and  allows  for  incremental  or 
single  file  backup  and  recovery.  A  full 
catalog  of  all  files  and  directories  is 
created,  and  can  be  searched  or  listed.  The 
restore  process  recovers  all  backed-up 
files,  and  includes  iilenotes  as  well  as 
protection  flags. 

Ultimate  Media,  Inc.  has  come  out 
■with  two  programs  for  the  64  that  will  be 
of  interest  to  musicians.  The  first  is 
Samplescope,  a  MIDI  sampler  program 
that  works  with  the  Akai  S612  MIDI 
sampler.  It  lets  you  use  your  64  to  visually 
edit  samples  from  the  Akai,  and  lets  you 
save  samples  to  your  disk  drive.  It  also 
adds  automatic  gain  control  and  splice 
point  cross  fade  capability  to  your 
sampler.  The  second  is  Autopilot,  a  MIDI 
patch  editor  for  the  DX-7.  This  program 
lets  you  edit  patches,  load  and  save  them 
from  a  disk,  and  generate  random  patches. 
You  can  transfer  1  patch  or  all  32  at  once. 
The  entire  program  is  joystick-driven. 

From  JDK  Images  comes  Pro  "Video 
GGI  for  the  Amiga.  This  is  a  professional 
level  video  character  generator  that 
operates  in  the  high-resolution  interlaced 
mode.  It  offers  a  full  range  of  wipes  and 
fades,  a  variety  of  font  sizes  and  styles,  on- 
screen composuig,  status  and  command 
line  operation.  I  took  one  look  at  this 
program  and  finally  saw  the  first  program 
that  truly  offers  a  unique  reason  to  use  the 
Amiga  on  a  regular  basis  in  a  professional 
video  environment. 

That  wraps  it  up  for  this  month.  Next 
month  I  plan  to  take  an  in-depth  look  at 
several  new  games,  including  a  hot  new 
flight  simulator,  and  perhaps  a  hands-on 
report  on  a  desktop  publishing  program 
for  the  Amiga.  Q 
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Printer  Maze 

for  the 
Commodore  128 


Jr  riniLT  Maze  draws  symnielriod  maze 
patterns  on  your  screen.  Tlien  it  expands 
and  sends  them,  fiill  page,  to  your  printer. 
For  a  simple  progr;uii,  it  draws  .some  ven,- 
unique  designs,  In  fact,  my  kids  enjo}' 
coloring  in  tlie  drawings.  'Iliey  :iLso  like 
the  random  design  because  of  tile  maze 
effect. 

Tiiis  program  is  made  for  die  1902  80- 
colnmn  monitor  ;md  Commodore's  MPS- 
1000  printer,  ^bn  don"t  lia\'e  to  have  a 
printer,  but  it's  nice  to  have  a  h:)rd  copy 
of  tlie  desigas.  "WitlT  some  chiuiges.  the 
prognuB  will  work  on  the  PI:T,  64  w-idi 
40-colnmn  monitor  and  1525  printer, 
but  yon  will  lose  stime  of  its  attributes 
and  printer  .speed. 

The  program  first  asks  if  \ou  \\'ant 
your  design  to  go  to  the  printer  or  to  the 
screen  first.  You  tlicn  ha\c  a  clKjice  of  a 
regiihtr  pattern,  mixed  pattern  or  ran- 
dom design. 

For  random  design,  the  complete 
printout  will  be  random.  If  you  select 
regular  pattern  or  mixed  pattern,  the 
computer  will  select  tour  numbers  for  a 
design.  Or  you  have  tlie  option  of  putting 
in  your  own  four  numbers  (zero  tlirough 
three). 

Mer  a  design  appears  on  the  screen, 
you  can  send  it  to  your  printer  or  you 
ma\'  select  aiKidier  design.  Wlien  tlic  de- 
sign is  printing  on  die  screen,  it  is  pre- 
ceded by  tlie  nuidomly  selected  number 
wliich  designed  it.  The  number  is  memo- 
rized so  you  won't  get  the  same  design 
twice.  If  you  wish  to  repeat  die  design  in 
tlie  fliture,  you  need  only  refer  to  die  let- 
ter ( P  tor  pattern,  M  for  .'VILxed )  and  die 
number  Random  design  doesn't  matter, 
it  will  always  be  different. 

Tlie  desigas  in  lines  60  to  80  are  four 
stiuare  nine-pixel  designs  side  by  side, 
and  is  :)H  Uiat  is  tised  in  the  program. 
Each  nine-pixel  design  is  open  on  the 
center  of  the  top  and  sides,  Tliis  allows 
them  to  connect  tor  continual  flow  de- 
signs, lines  120  to  210  are  your  input 
selections, 

'Iliis  progTiun  Lises  the  same  routine 
tor  die  .screen  and  die  printer,  line  240  is 


for  the  printer,  setting  up  the  numbers 
necessary  to  fill  die  paper  Tlie  printer  is 
device  #4,  In  line  250.  if  we  are  sending 
our  designs  to  die  screen  (device  #3), 
we  only  use  39  columns  on  a  40-column 
display  and  79  for  an  80-column  screen. 
Line  270  tells  die  printer  we're  going  to 
draw  graphics  ;ind  to  make  smaller  line 
feeds. 

The  loop  at  line  330  picks  four  ran- 
dom numbers.  Line  370  makes  sure 
they're  not  all  the  same  number.  The 
kK)p  at  4 10  memorizes  die  numbers,  and 
at  line  460  we  check  to  be  sure  we 
haven't  used  diem  betbre.  If  it's  not  going 
to  be  a  completely  random  design,  line 
510  will  print  the  pattern  number  to  die 
screen  in  case  w'e  like  it  and  want  to  use 
it  again. 

Our  mdn  printing  kxjp  starts  at  line 
540,  Line  ^00  allows  us  to  stop  in  die 
middle  of  a  printing,  eidier  of  die  screen 
or  die  printer  Touch  the  spacebar  once 
ju.st  as  it's  finishing  a  line. 

After  a  screen  has  been  designed,  you 
arc  given  the  choice  of  iinodier  design  or 
making  a  hard  cop\-.  \Mien  diat's  finished 
printing,  you  can  make  luiodier  one.  go 
tor  another  design,  or  quit.  Wlien  you 
wish  to  quit  be  sure  to  hit  die  N  key, 
wliich  resets  }'our  printer  to  its  originjil 
spacing. 

Here  are  some  input  numbers  to  tr\': 


h.m  BAXTER 

MIX  1213,  MLS  3101,  PATTERN  3220, 
PATTERN  3211. 

Experiment  widi  die  progriuii.  Tor  a 
different  r\pe  of  design,  change  Line  550 
to  IF  MIX  THEN  R(  5 )  =  R(  2  ) :  R(  2  )  = 
R(4>R(4)  =  R(1):R(1)  =  R(3);R(3)  = 
R(5). 

For  an  additional  set  of  unusiuil  de- 
signs. ch;uige  tlie  numl")er  -j  in  line  5"'()  to 
a  5,  You  won't  be  able  to  ]>reviL'w  designs 
before  they  go  to  the  printer,  but  }'ou  will 
get  some  unusual  designs.  If  you  like  the 
design,  remember  the  number  and  use  it 
again. 

If  you  only  ha\'e  a  40-colunin  screen, 
make  die  following  chiuiges.  In  line  250, 
make  ACROSS  equal  39  radier  dian  ^9. 
This  is  for  die  "widdi  of  your  screen.  C;ire- 
fbl — don't  ch;inge  line  240.  .4dd  die  fol- 
lowing line;  625  IF  SCREEN  =  I  THEN 
A=A-I-1. 

tf  you  have  a  1525  printer,  make  the 
following  changes.  In  line  240,  change 
die  number  66  to  49.  Remo\c  line  270 
(to  remove,  t)pe  die  number  by  iLself 
and  hit  RETURN).  Remove  line  660. 
Change  line  680  to:  680  PR1.\T#1. 
CHRS(  15)  PS(X,Y):.  Add  a  hne:  695 
PREST#1.CHRS(8).  Remove  fine  760.  In 
line  790,  remove  one  cursor  up  from  the 
end  of  die  line.  Line  830  should  just  lie: 
830  CLOSE  1.  g 

Continued  on  next  pg. 
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Before  nping  this  program,  read  "How  to  Enicr  Programs'  ind  "How  to  Lse  the  Magaint 
Entn-  Prognm"  The  BASIC  prognuns  in  this  mi^zinc  are  a\-ail3ble  on  disk  from  Loailsiar. 
P.O.  Box  3a)0-.  Stircvepon,  U  -ll.^DOtK)-  iai)()-8.^I-269-!, 

Printer  Maze 

20  REM  INITIALISE'BKVB 
30  REM"  [CMDR  U12]"'BAPI 
40  DIM  P$ (78,3) ,D5 (3) ,R(5) , 

CK5 (50) 'BCAF 
50  CHOICE? (0)="PATTERN  " 

:CHOICE$ (1)="MIX  ":R=RND(-TI) 

:N=1'GFUP 
60  D$(L)="[SHFT  (a,CMDR  @,SHFT  L, 

SHFT  @]   [SHFT  L]   [SHFT  M2,SHFT  N2] 
" 'BFJK 
70  D$(2)=" [SPACE3,CMDR  M]   [CMDR  G, 

SHFT  M,SHFT  SPACE, SHFT  M,SHFT  N, 

SHFT  SPACE, SHFT  N]"'BFFK 
80  D$(3)="[SHFT  P,CMDR  T,SHFT  0, 

SHFT  P,SHFT  SPACE, SHFT  0,SHFT  M2, 

SHFT  SPACE2,SHFT  N2]"'BFK0 
90  REM     INPUTS 'BGNH 
100  REM"  [CMDR  U3]'"BASB 
110  MIX=0: RAN =0: SCREEN =0:NU=0:A=0'FYVF 
120  PRINT" [CLEAR, DOWNS] 

(S)CREEN  OR  (H)ARD  COPY"'BAHE 
130  GET  A$:IF  A$=""  THEN  130'EIDC 
140  IF  A$="S"  THEN  SCREEN=1 ' EJNE 
150  PRINT" [D0WN2] (P)ATTERN  OR  (M)IX 

OR  (R)ANDOM" 'BALI 
160  GET  A$:IF  A$=""  THEN  160'EIGF 
170  IF  A$="M"  THEN  MIX=1'EGDG 
180  IF  A$="R"  THEN  RAN=1:G0T0  240'FKJI 
190  PRINT" [D0WN2] INPUT  A  NUMBER? 

(Y/N) "'BATK 
200  GET  A$:IF  A$=""  THEN  200'EIBA 
210  IF  A$="Y"  THEN  GOSUB  870 

:REM  GET  SELECTED  NUMBER 'FXMG 
220  REM    SET  OUTPUT 'BJHB 
230  REM"  [CMDR  U12]"'BAPI 
240  ACROSS=78:VERTICAL={65-2) *2 

:DEVICE=4:A=0'GJOM 
250  IF  SCREEN  THEN  ACROSS=79 

:VERTICAL=24:DEVICE=3 'FION 
260  CLOSE  1:0PEN  1, DEVICE 'CKHF 
270  IF  DEVICE=4  THEN  CLOSE  6 

:OPEN  6,4,6:PRINT#6,CHR$(18) ' HVKM 
280  IF  NU=1  THEN  540'DGFH 
290  IF  A$="H"  THEN  540 'DERI 
300  A$=""'BCXX 

310  REM    PICK  4  RND  NUMBERS 'BPIC 
320  REM"  [CMDR  U20]"'BAJO 
330  FOR  1=1  TO  4'DDHC 
340  R(I)=INT(RND(0) *4) 'EKQF 
350  HO$(I)=STR$(R(I) ) "CMIG 
360  NEXT'BAED 
370  IF  R(1)=R(2)  AND  R(2)=R(3)  AND 

R(3)=R(4)  THEN  330'HCKO 
380  N=N+1:IF  N=50  THEN  830 

:REM  QUIT'GPKM 
390  REM    MEMORIZE  THE  NUMBERS 'BSSL 
400  REM"  [CMDR  U22]"'BAXO 
410  FOR  1=1  TO  4 'DDHB 


420 

430 
440 
450 
460 
470 
480 

490 
500 
510 

520 
530 
540 
550 


560 
570 
580 
590 

600 
610 
620 
630 

640 
650 
660 
670 
680 
690 
700 
710 
720 
730 

740 

750 
760 
770 

780 

790 
800 
810 

820 
830 

840 

850 
860 
870 
880 

890 

900 
910 
920 


CK$ (N)=CK$ (N)+RIGHT$(HO$  (I)  , 

1) 'DWBG 

NEXT'BAEB 

REM    SEE  IF  USED  BEFORE 'EPWC 

REM"  (CMDR  U20] "'BAJS 

COMPARE=N'BIHH 

FOR  1=1  TO  N-l'EEWI 

IF  CKS (I) =CKS (COMPARE)  THEN 

330'DVHM 

NEXT'BAEH 

PRINT" [CLEAR] " ; ' BBDA 

IF  RAN=0  THEN  PRINT"SELECTION 

NUMBER:  "  CHOICES (MIX)  CKS(N)'EWEM 

REM    SET  UP  THREE  LINES 'BPTG 

REM"  [CMDR  U20] " ' BAJR 

FOR  R0W=1  TO  VERTICAL/3 'ENHJ 

IP  MIX  THEN  R(5)=R(4) :R(4)=R(3) 

:R(3)=R(2) :R(2)=R{1) 

:R(1)=R(5) "HWVS 

FOR  X=l  TO  ACROSS/3 'EJLK 

A=A+1;IF  A>4  THEN  A=1'GIVL 

R=R(A) *3+l'DHLK 

IF  RAN  THEN  R= INT ( RND  (0 ) *  4 ) 

*3+l ' IMRP 

FOR  Y=l  TO  3'DDWC 

P$(X,Y)=MIDS(D${Y) ,R,3) 'CSSG 

NEXT  Y,X'BDTD 

REM    PRINT  THOSE  THREE  LINES'BUUJ 

REM"  [CMDR  U25] "'BAQW 

FOR  Y=l  TO  3'DDWH 

PRINT#1'BBAG 

FOR  X=l  TO  ACROSS/3 'EJLM 

PRlL'JTifl,P$(X,Y)  ;  'BKJK 

NEXT  X'BBRJ 

GET  AS: IF  h$="    "  THEN  730'EIQF 

NEXT  Y'BBSC 

NEXT  ROW'BDVE 

IF  SCREEN=0  THEN  FOR  1=1  TO  6 

:PRINT#1:NEXT' INAM 

REM    FULL  PAGE-NOW  WHAT?'BROK 

REM"  [CMDR  U21]"'BATV 

PRINT' BACH 

PRINT" [SPACE2]M0RE?  (Y/N)  HARD 

COPY?  (H)  *  "; 'BBXP 

IF  RAN=0  THEN  PRINT 

LEFT$ (CHOICES (MIX) ,1)  CK$ (N) ; 'FCHS 

PRINT  "  *[UP2] "'BAIM 

GET  A$:IF  A$=""  THEN  800'EIHG 

IF  A$="H"  THEN  SCREEN=0 

:GOTO  240'FNPJ 

IF  A$="Y"  THEN  110'DFCH 

CLOSE  1:IF  DEVICE=4  THEN  PRINT#6, 

CHR$ (36) iCLOSE  6'HRSN 

END'BACG 

REM    INPUT  SELECTED  NUMBER'BTXN 

REM"  [CMDR  U23] "'BACA 

N=N+1:NU=1'DHHM 

INPUT    "[DOWN] ENTER    THE    4    NUMBERS"; 

CKS (N) 'BHOR 

FOR    1=    1    TO    4'DDHN 

R(I)=VAL(MID$(CK$(N) ,1,1) ) 'DSQI 

NEXT'BAEE 

RETURN 'BAQF  mn 
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The  128  Mode 

Smoke-Busters 

Explore  the  Commodore  128 
in  itspoiverful  native  mode. 
Some  of  the  articles  in  this 
column  may  be  tecbnicfil, 
some  not  so  technical — but 
we  guarantee  that  they  ivill 
spark  your  creativity. 


A'll  start  this  month  b}-  ni\ing  about  tlic* 
128,  the  top  eight-bit  computer  in  the 
world.  Thou^i  sonic  of  ni\'  contenipor- 
iirics  lire  prcx:hiiming  tlic  twiliglit  of  tlie 
tiglit-bit  er^i,  I  tliink  tiiey  :ire  premature. 
This  machine  ha.s  a  B.ASIC  tiiat  is  fiilly 
loaded,  a  crisp  80-column  display  tliat  Ls 
iilso  capable  of  640  x  200  pixel  higli-res- 
oliition  graphics,  a  sophisticated  menitjn' 
manager  tliat  allows  up  to  6i<)K of  mem- 
on',  and  a  screen  editor  tliat  is  possibly 
the  best  of  an\'  personal  computer 

Big  statemenLs,  all.  But  o^■e^  tlie  next 
months  if  you  journey  widi  nie,  you  will 
l>c  convinced.  Ijet  me  start  backing  u]i 
my  words  right  now  by  showing  how 
the  1 28  takes  an  existing  tcchn(jlog\'  to 
its  ultimate.  The  technologs-  I'm  talking 
about  is  sprites. 

If  you've  ever  glanced  at  your  system 
guide,  you've  undoubtedly  heard  of 
sprites.  You  ma\'  know  that  tlie}-  ;ire  2-1 
televTSion  dots  (called  pixels )  wide  by  2 1 
long.  You  may  even  know  that  their 
name  comes  from  the  word  spirits. 
(Shakespeare  uses  the  term  sprites  sever- 
al times).  But  you  may  be  wondering 
what's  so  wonderful  about  tliem. 

Here's  what.  They  are  controlled  by  a 
separate  piece  of  silicon  in  \our  comput- 
er called  the  VIC:  (for  Nkleo  Interface 
C;hip).  It's  wonderful  because  it  does  all 
kinds  of  messy  calculations  for  you  the 
programmer.  It  keeps  track  of  which 
sprite  should  appear  on  top  of  which, 
revealing  the  overlaid  sprite  just  like 
real-life  3D-  It  keeps  track  of  when  two 
sprites  collide.  It  remembers  and  re- 
stores whatever  w^as  on  the  .screen  be- 
fore a  sprite  passed  througli.  Tlie  Com- 
modore 64  has  sprites,  the  eiglit-bit 
Ataris  have  a  form  of  sprites,  ;ind  the 
now-defunct  Tl-99  4/A  had  them  too. 

The  thing  that  makes  sprites  stand  out 


on  the  128  is  the  way  die\'  are  imple- 
mented througli  the  operating  system 
and  B.VSIC,  .-Vnyonc  who  is  willing  to 
read  die  system  guide  carefiilh'  c;ui  have 
sprites  up  and  ninning  in  no  time  flat. 
Tlie  built-in  SPIU^EF  command  jumps 
\()u  into  a  ver\'  useflil  sprite  etlitor.  \^Tiile 
not  ;ls  sophisticated  as  some  that  have 
Ix'cn  written  for  the  64,  most  of  what 
\'ou  need  is  diere.  'l"he  important  tiling  is, 
SPRDEF  is  always  there,  wiiiting  to  be 
used.  It  c;ui  even  be  part  of  a  Rinning 
pn)gnun.  ( Next  niontli  we'll  do  just  tliat. ) 

/Uter  you've  desigtied  .sprites,  you  can 
nio\e  sprites  simpK'  by  turning  tliem  on 
widi  SPRITE  and  using  MtJVSFH.  1  won't 
waste  space  explaining  what  tlie  system 
guide  covers  so  adequateh'. 

If  you  like  your  creatiotis,  you  can  save 
them  painlessly  with  the  wonderful 
( ver\ ,  verv-  wondertltl )  BSAX'Ii  conim;md. 
This  litde  gem  lets  you  sav e  vour  sprites 
witliout  getting  your  h;inds  diny  witli 
data. 

Ilien,  t(K),  there  are  timc-s  when  vou'll 
need  to  diny  your  program  up  wiUi  cLita. 
Tile  128's  built-in  machine-language 
monitor  allows  you  to  do  a  hexadecim:U 
niemorv-  tlump  (which  BASK!  T(l  has  ne) 
problem  inteqireting)  which,  with  the 
;iid  of  some  niftv'  re-pnignuumed  func- 
tion keys,  can  be  transtbrnied  into  daui 
statements  in  about  two  minutes. 

Otlier  commands  such  ;ls  BUMF^,  CX)I.- 
IJSION  :md  RSSPOS  simplily  sprite  work 
greiidv'.  But  die  Ix-st,  die  verv'  tx-st  of  all, 
has  not  been  mendoned:  SPRSAV  (and 
his  trustv-  sidekicks.  SSHAPE  :ind 
G.SHAPE).  When  the  engineers  sneiiked 
riiis  one  in.  they  put  a  seal  on  the  now 
famous  24  x  21  grid  of  pixels  that  com- 
prise a  sprite's  shape.  Here's  what  1  mean. 

In  Smoke-Busters  I  decided  I  wanted 
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to  have  sbc  sprites  in  the  shape  of  f>eo- 
ples'  faces,  so  dic-v'  could  Ix-  kxiking  out 
tlie  windows  of  :ui  ap:irmient  building.  I 
w;uited  diesc'  faces  to  be  hidden  in  tlie 
diirk,  only  to  Ix  revc"aled  when  die  spot- 
liglit  fhjm  die  smoke-buster's  gun  shined 
on  diem. 

Iliat  much  was  no  problem — 1  could 
simply  use  sprite  .seven  or  eiglit  for  tlie 
spotliglit  luid  sprites  one  dirougli  sLx  for 
the  faces  because,  according  to  VIC,  die 
lower  die  number  of  .sprite,  the  higlier 
die  priorit)'  it  h;LS  in  being  placed  on  top 
of  odicr  sprites  on  the  screen.  That  is,  if 
sprite  one  ;md  sprite  two  occupy  the 
same  spot  on  die  screen,  only  sj^rite  one 
will  be  visible. 

To  make  tlie  faces  invisible.  1  could 
color  each  one  black  and  place  it  on  a 
black  background.  Tlien  when  the  yel- 
low .spodight-  sprite  was  placed  on  top  of 
a  face  (actually,  on  the  bottom  because  it 
would  be  a  lower  priority),  the  face 
would  show  up  against  die  spodight. 

As  1  s;ud,  diis  would  work  ciLsilv'.  The 
problem  v^-iLs,  I  needed  more  spritc-s,  I 
wanted  the  ap:irtment  windows  ( black  at 
first)  to  liglit  up  (then  gradually  fade) 
after  tliey'tl  Ix-en  z;ipped.  Doing  diis  us- 
ing graphics  on  the  bitmapped  screen  1 
wiLs  u.sing  Ux)ked  trickv — ;md  j-)otentiallv- 
slow. 

SPRSAV  to  the  rescue.  I  simply  .saved 
the  faces  as  graphic  .shapes.  Line  160 
shows  how.  To  sine  vou  from  page  flip- 
ping, here's  what  it  looks  like: 
FORT=  3  TO  8:  SPRSAV  T,THS(T)JVEXT 

VCTiat  is  liappening  here  is  each  time 
through  the  loop  sprite  number  T's 
shape  gets  .siived  as  a  string  v;iriable.  in 
diLs  c:Lse  Tf  i  S(  '  )■ '"  odier  words,  now  if  I 
used  the  (iSHAPK  command  to  print 
Ti  I  S(  3 )  to  the  .screen,  it  would  print  a 
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Smoke-Bnsten 
demonstrates  just  some 
of  the  graphics 
capabilities  tucked 
away  inside  every 
Commodore  128. 


shape  identical  to  sprite  #3.  iJnc  205 
shows  tliat  happening. 

Tlic  rc:LS<>n  this  solution  worl^etl  in 
freeing  up  extra  sprites  for  me  is  tliat  my 
faces  would  never  ha\c  to  mo've  once 
placed  on  the  screen.  Thus  1  could  draw 
them  using  the  huilt-in  sprite  editor. 
BSAVE  them,  DI.OAD  them  back  any- 
time, convert  them  from  sprites  lo 
graphics  stringp.  and  then  put  tliem  ;in\- 
wherc  I  wanted  on  the  screen  as  m;iny 
times  ;ls  I  w;mted.  A  %'er}'  integrated  s>'5- 
tem,  indeed. 

So  when  I  placed  tliesc  grajihic  string 
fhces  on  tlie  screen,  all  1  neetied  to  do 
was  color  them  black  and  make  sure 
tliey  were  in  die  black  windows.  Line 
200  and  205  did  tliis. 

Now  1  had  freed  up  six  sprites.  Tlie.se 
became  my  "ap:irtmcnt  interiors."  All 
tlie)'  would  Ixr  Ls  rcctimgles  which  would 
sit  blackly,  in\'isibh'  on  tlie  screen,  one 
beneath  each  face,  until  a  face  got 
Zitpped.  At  that  point,  h\'  simply  ch:uiging 
the  proper  sprite's  color  to  white,  it 
would  app)ear  that  tlie  ap;utment  lif^iLS 
liad  come  on. 

How  so?  Because  another  capiibilit\  of 
\1C  is  that  it  can,  ;ls  an  option,  make 
sprites  ha\e  a  lower  priorit)-  tli;uT  :uiy 
non-sprite  objects  printed  to  tlie  .screen. 
Since  tlie  faces  and  even  the  window 
fr.unes  were  non-.sprite  graphics  on  the 
.screen,  the)'  would  shov^'  up  against  die 
now  white  sprite-retangle.  \bu  invoke 
tliis  option  b}'  inserting  a  1  in  tlie  fourtli 
spot  in  the  SPRITE  command.  See  line 
225  to  see  that  happen. 

Creating  this  retangular  sprite  shape 
WAS  a  kxip  av\ay.  Ijne  195  jiokes  in  tlie 
riglit  daai  to  do  make  sprite  one  a  retaii- 
gle  and  line  205  saves  this  shape  to 
sprites  three  throu^i  ei^it. 

The  sprite  windows  were  now  noth- 
ing more  tlian  tlie  "lij^it"  in  tlie  ap:irt- 
ments.  By  cycling  dirougli  white — liglit 
gray-medium  gray-d;irk  gray — tlie  liglits 
could  appear  to  be  dimming.  And  tliat's 


just  what  1  wanted  so  the  gamester 
would  know  when  time  was  running 
out. 

The  point  here  is,  by  transferring  tlie 
sprite  shapc-s  to  graphics  \ia  SPRS.A.\',  I 
could,  in  effect,  Vvavc  as  many  stationary 
sprites  as  1  wanted  (witli  some  liniita- 
tioas).  And  had  1  wanted  to,  I  coukl  have 
gnibbed  the  shape  back  as  a  s]>rite  ;uid 
mo\ed  it  ag;iin.  In  otiier  words,  now  we 
c-an  ha\'e  as  m;iny  sprites  as  we  wiuit,  just 
as  long  as  we  only  need  to  mo\e  eiglit  at 
a  time.  In  a  future  column,  I'll  create  a  jig- 
s;iw  puzzle  maker  diat  relies  on  just  tliat 
principle. 

If  you're  confiised  at  this  point.  t;ike  a 
break  and  t>pc  Smoke-Busters  into  \ our 
128.  Once  you've  seen  and  played  tlie 
game,  come  hack  and  re-read  :incl  tilings 
will  niiike  a  lot  more  sen.se. 


zVs  always,  save  your  work  before  you 
run  it  the  first  time.  There  arc  two  ma- 
chine-hmguage  routinc-s  in  Smoke-Bust- 
ers, ;uid  if  )ou  don't  get  your  data  exact. 
tlicT  could  CHLsh  the  program.  Also,  tlie 
first  time  you  run  the  pr(.)gnini.  it  wiU 
take  o\er  a  minute  to  draw  the  screen  (it 
will  do  this  while  )'our  screen  is  blanked 
out  so  don't  piuiic).  'Ilien  it  will  s;ive  tlie 
scR-eii  to  di.sk  so  diat  fiiture  loads  will  be 
much  t[uicker  He  sure  tliat  the  disk  \()u 
save  Smoke-Busters  on  has  a  least  65 
bl<K"ks  free. 

Well,  enougii  for  openers.  1  hope  ^^■e 
wiiettetl  your  appetite  to  see  these  .sprite 
tricks  in  action,  if  not,  rc-ad  die  following 
scenario.  It  ouglit  to  get  you  taping. 

Oh.  by  tile  wax — if  }ou  smoke,  don't 
tx-  offended  Iiy  Smoke- Busters.  It's  ;UI  in 
fun.  3 


SMOKE-BUSTERS 

It's  a  hot  summer's  night  in  the  ap;irt- 
ment.  The  year  is  19.36.  All  acnxss  town 
people  are  sitting  at  their  windows, 
yearning  tor  a  wisp  of  a  breeze.  Sitting, 
and  in  some  cases,  smoking 

Alone  in  a  drab  flat,  you  sit  at  your 
window.  You  arc  not  diinking  about  be- 
ing hot.  And  certiiinly  you  are  not  smok- 
ing Wliat  ;trc  you  doing?  Smoke-Busting! 

How?  With  your  Smoke-Out  gun,  nat- 
urally (patent  pending).  From  your  ap:irt- 
mcnt  'Window  you  aim  tlie  ra\'  of  suh-vk)- 
let  ligjit  across  tlie  allc\'.  From  window  to 
window  you  scan,  watcliing,  waiting  to 
c-atch  a  ^impse  of  a  suddenly  revealed 
cigarette.  When  you  sec  .someone  Uglit 
up,  \'ou  light  them  up.  Literally.  Each 
time  )'Ou  fire  on  a  smoking  smoker,  dicir 
apartment  glo\%'s. 

All.  tliere's  one  now — it's  Mug^y  Potts 
(you  always  suspected  he  was  a  smoker ). 
You  fire.  Zap!  You  got  him.  Mugs") 's  cigji- 
rette  is  blown  awa)-,  his  apartment  ligliLs 
up.  But  you  cannot  relish  tlie  victor\'  for 
long — tliere  ;irc  five  more  wintlows  with 
five  more  neighbors  widi  many  more 
cigarettes  to  extinguish.  And  until  you 
U^t  up  all  six  apartments,  )Our  task  is  in- 
complete. 

So  you  continue  panning  tlie  buikling. 
watching,  zapping,  smoke-  busting.  \'ou 
zap  another,  and  another,  :ind  you  st;)rt  to 
feel  good.  Three  apartment  windows 
now  are  a^ow,  their  inhabitants  exposed 
for  their  heinous  acts.  But  tlie  effects  of 
die  first  blxst  arc  starting  to  lade.  .Mu^y's 
apartment  is  getting  darker,  ;ind  diirker. 
and  now  black. 


Nobody  ever  said  it  was  going  to  he 
easy. 

It  gets  worse.  You  accidendy  fire  on 
Sweet  I'*)lly  PetcTson  in  apartment  five. 
You  lose  precious  time  wliile  she  gives 
you  a  piece  of  her  mind. 

'Iwo  montlis  of  niglidy  smoke-busting 
later,  you  rcidize  that  this  is  not  for  tlie 
timid,  nor  die  slow  of  reflex,  nor  die  im- 
patienl.  Not  only  diat,  j'Ou  iire  beginning 
to  realize  tliat  there's  very  litdc  monc)'  in 
it,  at  least  not  in  tlie  yeiir  1936.  You  re:il- 
ize  Uiat  )'oii  ;ire  probably  the  only  smokc- 
bustcr  in  die  nadon.  You  \o^'  diat  some- 
diiy  diere  wiU  ;in  army  of  smoke-busters 
;md  you'll  ixr  tlie  general. 

,So  \'ou  write  a  manual  on  die  subject, 
llie  maniud  gets  rejected  by  scN-eral  pub- 
lishers all  with  the  same  response:  "Get 
witli  it.  lliis  Ls  19.36.  li^crjixxi)'  smokes." 

Fijh'  yL"irs  later,  your  manual  is  discov- 
ered— tiy  me — in  ;in  iibandoncd  building 
on  a  wfKxlen  tiible  next  to  a  window, 
diird  storv'  up.  I  write  a  computer  pro- 
gram to  simulate  your  nightly  good 
deeds,  following  your  descriptioas  to  the 
tee. 

I  sell  the  program  to  Commodore 
Magazine  The  editors  ask,  "What  alxiut 
tlic  manual?"  I  say  forget  it  (This  baby's 
mine,  it  may  Ix;  worth  .something )  Tlie>' 
.say,  fine,  dien  we  don't  publish  your  pro- 
gnuu.  t  relent  Well,  I  relent  a  litdc.  I  sum- 
marize your  manual  into  five  smoke- 
busting  tips. 

1 )  Always  keep  your  gan  moving.  If  you 
go  past  a  smoker  you  still  may  have  time 
to  go  back  and  get  him. 

2 )  Press  your  trigger  quickly — don't 
hold  it  dowa  If  you  do,  the  cigarette  will 
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dLsappcarand  the  victim  will  bcct)mtr  lui- 

m'- 

3 )  Practice  \our  smoke-busting  on  the 
hottest  of  nigliLs,  wlien  folks  urc  sliijg^ish. 
Tliis  mems  level  9. 

4 )  Don't  tiiink  tliat  just  because  an  apart- 
ment is  lit  up  the  inliabitiuit  hiis  given  up 
smoking.  He  just  miglit  be  sne;iking  :ui- 
otlier  puffi  Zap  him  again  to  re-frL-sh  him 


(and  buy  more  time). 
5)  VCIiatcvcr  you  do,  don't  quit.  Tliougli 
the  smokers  smoke  unpredictably,  tltey 
all  do  smoke.  If  you've  got  G%e  windows 
lit  ;md  Mr.  Number  Six  just  won't  take  a 
pufi^  keep  ziipping  one  dirougli  fi\e  until 
sLx  is  liistorv'. 

Tlie  editors  are  satisfied  and  pa\'  me 
well.  As  1  return  from  die  b:uik,  1  reflect 


on  die  fact  nSSOT^u  did  the  gruntwork 
while  I  get  die  glor\'.  ^ou  were  simply  a 
man  ix'fore  your  time,  I  reason.  My  fcx)t 
kicks  ;m  old  cigarette  package  on  die 
sidewalk.  I  stoop  to  pick  it  up  ;ind  note 
tlie  words  on  die  side:  "Warning — die 
Sui^eon  General . . ." 

I  straighten.  1  salute.  .Somewhere,  I 
know,  you  are  returning  my  gesture.    Q 


Before  Ijpiilj!  thcst  programs,  rf ad  "tUnv  to  ftilcr  I'ropams,"  and  "How  Co  f'sc  tlit  Magazine 
Entr^-  Program."  The  B:\SIC  prugnras  in  tliii  raan.ij:ine  are  aiailablc  on  disk  from  tadstar, 
P.O.  Box  30007.  Shrevcpon,  Lk  ^IHO-OOO".  l-80l)-83l-2694. 

Smoke-Busters 

10  COLOR  4,L5:COLOR  0,1 

:PRINT  CHR$(14) " [CLEAR, SHFT  SPACE, 

SHFT  PjLACE  JOYSTICK  IN[SPACE2] 

PORT  2":SLEEP  2 : PRINT" [CLEAR] " ; 

'GSOO 
15  GOSUB  405:FAST'CFFE 

20  GRAPHIC  1,1:C0L0R  1,8:WIDTH  2'DKRC 
25  DRAW  1,0,0  TO  3,3:SSHAPE  CIG$(1),0, 

0,23,20'DBNK 
30  DRAW  1,4,3  TO  7,0:SSHAPE  CIG$(2),4, 

0,27,20'DBFG 
35  WIDTH  I'BCYF 
40  CIRCLE  1,32,12,11,9:PAINT  1,32,12 

:SSHAPE  ST$, 21, 1,44,21 

:COLOR  1,9'EOML 
45  D0PEN#2, "SMOKESCREEN" 

: IF  DS=0  THEN  DOLOSE 

:BLOAD"SMOKESCREEN":GOTO  140'HPDT 
50  DCLEARrSCNCLR'CCCD 
55  0F=-4:DRAW  1,80,0  TO  30,199 'EQOM 
60  FOR  T=0  TO  199  STEP  5 

••FOR  1=  84+OF  TO  319  STEP  16 

: IF  0F=4  AND  1=  88  THEN  BOX  1,80,T, 
87,T+3, ,1'QODV 
65  BOX  l,I+l,T,I+15,T+3, ,1:NEXT:0F=-0F 

INEXT' IXIR 
70  COLOR  1,15;B0X  1,160,0,167,199,,! 

:BOX  1,0,96,319,103,,1'DQON 
75  FOR  T=l  TO  8:READ  X:COLOR  1,6'FJVN 
80  Y=24:IF  T  >4  THEN  Y=120'FKEJ 
85  BOX  0,X,Y-l,X-l-33,  Y-i-lS 

:BOX  1,X-H,Y,X  +  32,Y  +  14,  ,1 

:BOX  0,X,Y+15,X-i-33,Y+27,  ,1 

;BOX  0,X,Y-l-29,X-H33,Y  +  56,  ,1'QUFL 
90  DRAW  l,X-l-16,Y-H5  TO  X-H6,Y-l-21 

:CIRCLE  l,X-(-16,Y  +  22,l,l' JFOS 
95  NEXT'BAEK 
100  DATA  111,175,239,303,111,175,239, 

303'BGBB 
105  FOR  T=l  TO  20:C=(T  AND  7)-l-2 
:COLOR  1,C:RX=INT(RND(1) *78) 
:RY=INT(RND(1)*95) 'PKCR 
110  DRAW  1,RX,RY:NEXT'CIBY 
115  COLOR  1,8:CIRCLE  1,18,15,24,14 

:PAINT  1,18,22:CIRCLE  0,30,18,22, 
12:PAINT  0,30,18'FWAO 
120  COLOR  1,3:CIRCLE  1,40,160,30,24 
:CIRCLE  1,40,160,24,20 


IPAINT  1,14,160'ERYI 
125  COLOR  1,2:B0X  1,38,145,41,175,75, 

I'CYJI 
130  COLOR  1,3:B0X  1,38,138,44,184,135, 

I'CAKE 
135  BSAVE"SMOKESCREEN" ,B0, 

P7168  TO  P16384'CQPL 
140  RESTORE  480'BDOA 
145  FOR  T=2816  TO  2991:READ  HS 

:POKE  T,DEC(H$) :NEXT'HUCM 
150  FOR  T=3584  TO  4095:READ  H$ 

:POKE  T,DEC(H$) jNEXT'HUCI 
155  SPRSAV  1,SM$:SPRSAV  2 ,CIG$ ( 3 ) ' CRQK 
160  FOR  T=3  TO  8:SPRSAV  T,TH$(T) 

:NEXT'F0HH 
165  SL0W:COLOR  1,2:CHAR  1,2,14, 

"FIRE  T0":CHAR  1, 3 , 15 , "START" ' EVKR 
170  FOR  T=l  TO  8:SP=INT(T/2)+4 

:SPRSAV  1,T:SPRITE  T,1,T,0,1, 

T  AND  1:M0VSPR  T, 190, 90 

:M0VSPR  T,T*40#SP:NEXT'OBHX 
175  GOSUB  425'BDOI 
180  CHAR  1,2,14,"[SPACE7] " 

:CHAR  1,3,15," [SPACE5]"'CPUJ 
185  FOR  T=l  TO  8:SPRITE  T,0 

:MOVSPR  T,0#0:NEXT'GQCP 
190  GSHAPE  SM$,30,110'BKSG 
195  FOR  T=3584  TO  T+61  STEP  3 

:POKE  T,255:POKE  T-i-1,255 

:POKE  T-^2,0:NEXT'LDOW 
200  COLOR  1,1'BDQW 
205  FOR  T=3  TO  8:SPRSAV  1,T 

:READ  X,Y,CIG(0,T) ,CIG(1,T) 

:GSHAPE  TH5(T) ,X,Y,2 

:MOVSPR  T,X  +  20,Y-H31' JEJT 
210  NEXT:SPRSAV  ST$,2'CHXY 
215  FOR  T=l  TO  8 : READ  X(T),Y(T) 

:NEXT'FOFI 
220  E$=CHR${27)  :  J$  =  E$-l-"  J"  :M$  =  E$-t-"M" 

:L$=E$+"L";SP$=" [SPACE4  0] " ' JADP 
225  SYS  2816:GRAPHIC  1:F0R  T=3  TO  8 

:SPRITE  T,1,1,1,1,1:NEXT'HYRM 
230  SPRITE  2,l,8,l,l,l:MOVSPR  2,0#0 

rMOVSPR  2,128,96:SX=128:SY=96 

:S=1'GSSM 
235  SPRSAV  CIG$(1) ,1:SPRITE  1,1,2,0,0, 

0:MOVSPR  1,0#0'DFUM 
240  SC$="":TI$="000000":POKE  252,0 

:G=99'ERTH 
245  D0:G=G+1:IF  G>LV*2+12  THEN 

BEGIN' JMUO 
250  :  S  =  INT(RND{1)  *6)-t-3 

:IF  S=S1  THEN  3  =  8-1-2 
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:IF  S>8  THEN  S=3'0VXP 
255  :  POKE  253 ,S :S1=S :G=0 ' DNQL 
260  :  CI=1:1F  S=5  OR  S=8  THEN 

CI=2'HMVJ 
265  :  BEND:SPRSAV  CIG$(CI),1 

:MOVSPR  1,CIG(0,S) ,CIG(1,S) 'DKLR 
270  Xy=J0Y(2):IF  XY<128  THEN  230'FOKJ 
275  GOSUB  300:IF  PEEK(252)=1  THEN  345 

:ELSE  295'GRBP 
280  SX=SX+X(Xy) : IF  SX<128  OR  SX>256 

THEN  SX=SX-X(XY) ' JENS 
285  SY=SY+Y  (XY)  :IF  SY<96  OR  SYM94 

THEN  Sy=SY-Y(XY) ' JDEX 
290  MOVSPR  2,SX,SY'BIDH 
2  95  LOOP'BAKK 
300  XP=(SX-128)/64+l:YP=(SY-96)/96 

:JS=YP*3+XP+2:G=99'MLHO 
305  IF  JSOS  THEN  325'EGGG 
310  SYS  2907,0,0, JS-1'CMEB 
315  IF  JOY{2)>127  THEN.  315'EJDH 
320  RETURN 'BAQY 
325  POKE  253,JS'BGYF 
330  SPRSAV  CIG$(3) ,1:M0VSPR  1,CIG(0, 

JS)-40,CIG(l,JS)-40 

:SPRITE  1,1,2,0,1'FXON 
335  SOUND  1,2000, 50, 2, 1800, 1900'BVKJ 
340  SLEEP  1:SPRSAV  CIG$(CI),1 

rSPRITE  1,1,2,1,0,0:RETURN'EDRJ 
345  SYS  65418:FOR  T=l  TO  8:SPRITE  T,0 

:NEXT'GPFN 
350  GRAPHIC  2, 0,13: PRINT" [CLEAR] " 

:FOR  T=l  TO  12:PRINT:NEXT'H0JJ 
355  PRINT" [RVS,L.  BLUE] "SP$" [ SPACES , 

SHFT  EJXTINQUISH  TIME 

: [SPACE2] "MID$(TI$,3,2)" 

:"MID$ (TI$,5) " [SPACES] " ' DTRV 
360  RK=PEEK(161) :RK=45-RK 

:IF  RK<1  THEN  RK=1 ' IVKN 
365  IF  RK>39  THEN  RK=40'EIIM 
370  PRINT" [RVS] "SP$"[SPACE4, SHFT  A] 

RROWS  BELOW  SCALE  INDICATE  RANK, 

[SPACE3] "'BDAP 
375  PRINT" [RVS] "SP$"[GRAY3]  [SHFT  S] 

MOKERS' [L.  BLUE,SPACE23,GRAY3] 

[SHFT  S]URGEON"'BDAU 
380  PRINT" [RVS, GRAY3]   [SHFT  F]RIEND 

[SPACE2]--[SPACE2,SHFT  F]AIR 

[SPACE2] -- [SPACE2,SHFT  G]OOD 

[SPACE2]--1SPACE2,SHFT  G] 

ENERAL"SP$" [UP] "; 'BEDS 
385  FOR  T=l  TO  RK:PRINT"[UP  ARROW]"; 

:SOUND  1,200,4:NEXT:PRINT  JS ' HSWS 
390  IF  RK=40  THEN  SOUND  2,12000,210,2, 

10000, 500'ECLO 
395  PRINT  M$"[RVS,L.  BLUE]"SPS" 

[SPACES, SHFT  P]RESS  [WHITE] 

[SHFT  P]   [L.  BLUE]  TO  PLAY  AGAIN. 

[SPACES] "SP$SP$J$"[D0WN3] "; ' BOHA 
400  GET  KEY  A$:IF  A$="P"THEN  GOSUB  405 

:GOSUB  435:GOTO  225:ELSE  400'JUPI 
405  PRINT" [RVS, L.  BLUE , SPACE3 , SHFT  C] 

HOOSE  LEVEL: [SPACE2] 

1  (PRO)  -  9  (BEGINNER) "'BALO 


33 
E03B 


FGRM 


410  GET  KEY  A$ : LV=VAL ( A$) 

:IF  LV<1  THEN  LV=5'IQFI 
415  POKE  251, (LV+5)*18:POKE  250,0'ERGK 
420  RETURN 'BAQA 
425  V$="V1T0O4IE$EEFE$EFSE" 

:Q$="MV2T602W" :V3$="T3S02C" 'DJHR 
430  FOR  T=l  TO  6: READ  N$ 

:VS(T)=Q9+N$+V$:NEXT' ITOK 
435  ENVELOPE  3,10,0,3,0,3 

: ENVELOPE  0,  4,4,0,0 

: ENVELOPE  6 , 8 , 3 , 3 , 0 , 2 ' DMXP 
440  VS (7)="V2T602QE  V1T0O4I  EO 

V202Q#G  V104IEF  V202QB  VII 

V203QD  V1I04D#D"'BFWU 
445  V$(8) ="V1H03A  V2H02A"'BFFM 
450  TEMPO  20:FOR  T=l  TO  7 

:PLAY  V3$+V$(T)+"M"'HRTL 
455  IF  JOY(2)>127  THEN  RETURN' 
460  NEXT;PLAY  V$(8)'CHRG 
465  IF  RK=0  THEN  FOR  T=l  TO  8 

:MOVSPR  T,190,90:NEXT 

:GOTO  450'JVXT 
470  RETURN 'BAQF 
475  REM  ML  DATA'BGPM 
480  DATA  78,A9,47,8D,14,03,A9,0B,8D, 

15,B3,5  8,60,A0,02,20'BWGP 
485  DATA  55 , 0B ,C9 , 0B , D0 , 08 , A9 , 00 , 99 , 

27,D0,4C,3F,0B,C9,0C'BWEV 
490  DATA  D0,08,A9,0B,99,27,D0,4C,3F, 

0B,C9,0F,D0,08,A9,0C'BWYR 
495  DATA  99 , 27 , D0 , 4C , 3F , 0B ,C9 , 01 , D0, 

0  5,A9,0F,9  9,27,D0,C8"BWFW 
500  DATA  C0,08,D0,CB,4C,71,0B,20,A2, 

0B,C6,FA,D0,F6,A5,FB'BWMJ 
505  DATA  85,FA,4C,0D,0B,B9, 27,00,29, 

0F,60,A9,01,99,27,D0'BWXO 
510  DATA  A0,02,20,55,0B,F0,09,C8,C0, 

08,D0,F6,A9,01,85,FC'BWEK 
515  DATA  60,A0,03,AD,02,D0,AE,03,D0, 

E0,60,F0,02,A0,06,C9'BWPP 
520  DATA  80,F0,05,C8,C9,C0,F0,01,C8, 

A2,00,C4,FD,D0,01,E8'BWKL 
525  DATA  8E, FF , 0B , AD, 15 , 00 , 29 , FE , 18 , 

6D,FF,0B,8D,15,D0,4C'BWXQ 
530  DATA  65,FA,CE,FE,0B,D0,06,A9,02, 

8D,FE,0B,60,E6,FA, 60'BWNM 
535  REM  SPRITE  DATA'BKCK 
540  DATA  3C, 00, 00, 40, 00, 80, 42, 00, 8E, 

73,0C,AA,0A,CA,AC,0A'BWFN 
545  DATA  AA,C8 , 0A, A6 , AE, 70 , A0 , 90, 00 , 

20 , 08 ,C0 , 10 , 00 , A0 , 3B ' BWHS 

550  DATA  00,A2,15,5B,AA,77,64,CA,94, 

47,AA,D7,41,9  6,5  8,ll'BWDO 
555  DATA  90 , 40  ,  0E , 91 , 80 , 00 , A0 , 00, 00 , 

C0,00,00,0  0,00,00,00'BWKS 
560  DATA  03,FF,E0,1F,F7,BE,FB,FB,7F, 

BA,FD,7F,AA,EE,95,AA'BWJQ 
565  DATA  2A,A5,A6,AA,C9,DE,B2,FF,FF, 

BB,FE,7F,E7,FC,0F,FF'BWDV 
570  DATA  F0, 00, FF, 80, 00, 38, 00, 00, 18, 

00,00,0C,0  0,00,00,00'BWKP 
575  DATA  00,00,00,00,00,00,00,00,00, 

00, 00, 00, 00, 00, 00, 00 'BWXU 
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128  USERS/SMOKE-BUSTERS 

580 

DATA    01 , F7 , 00 , 03 , FF , 80,03, FF , 80 , 

E2,AA,80,FF,FF,F0,7F'BWKR 

585 

DATA  FF,FE,1E,00,47,3E,1F,F0,78, 

FC,F8,F3,7C,38,FC,33'BWFW 

590 

DATA  08f E0, 00, 04, £4,00,04,78, 0F, 

Fa,30,lF,F8,12,lF,F8'BWIS 

595 

DATA  09, 00, 40, 04, E0, 80, 02, 3F, 00, 

02, 04, 00, 02, 08, 00, 00 'BWLW 

600 

DATA  0F,FF,C0,9F,EF,F0,EF,F7,F4, 

F4,7D,F8,BC,00,1C,DC'BWYK 

605 

DATA  00,18,FC,00,1C,BF,FF,F8,D7, 

DD,B0,E3,F8,E0,C8,00'BWMP 

610 

DATA  30,00,00,08,64,00,84,38,00, 

7  8,18,00,10,7C,04,08'BWYK 

615 

DATA   FF,08,70,FF,C1,90,17,F0,10, 

1D,FE,6  0,3F,7F,80,00'BWLQ 

620 

DATA  00, 07, 00, 00, CF, 00, 01, FF, 80, 

01,DF,80,01,FF,C0,03'BWQL 

625 

DATA  FF,C0,03,7E,CF,03,DB,FF,07, 

FF,FF,1F,FF,E0,3F,FC'BWKR 

630 

DATA  F0, 7 9, 00, 78, El, 00, DC, 82, 10, 

CC,04,1E,4E,04,3C,1E'BWDN 

635 

DATA  04, F8, IF, 03, E0, 30,00,20,08, 

00,23,84,00,3E,02,00'BWDR 

640 

DATA    IF, FE, 00, 3F,FF, 80,78,00,00, 

F0,00,60,FF,FF,F0,C7'BWHO 

645 

DATA  FF,FC,FF,FF, FFr90, FF,FF, 90, 

1C,10,98,3  6,3  0,AF,E3'BWCT 

650 

DATA  E0, 60, 02, 20, 20, IE, 20, 10, 80, 

4  0,0F,00,40,0E,0F,40'BWPO 

655 

DATA  0B, 10, 00, 11, 80, 40, 10, E0, 80, 

20,3F,00,20,30,00,00'BWLT 

660 

DATA  00,3F,00,00,7F,C0,03,FF,E0, 

07,FB,F8,0F,F7,FC,3F'BWBQ 

665 

DATA  FF,DE,7F,FF,FB,7B,PF,F7,7F, 

F0,FE,7  7,E0,FE,7F,E0'BWDW 

670 

DATA  7O,7D,C0,00,FF,C0,66,FF,80, 

08,DF,80,04,EF,20,1C'BWRR 

675 

DATA    FF,30,00,7F,E0,78,7F,C8,00, 

3F,87,10,3F,04,E0,00'BWAW 

680 

DATA  3D,F0,00,7F,FF,00,7F,FE,C0, 

3F,F3,F3,10,07,PC,10'BWFS 

685 

DATA  07,FE,10,03,1E,0E,63,4E,05, 

53,4E,02,20,lC,04,00'BWyW 

690 

DATA  70,08,00,38,08,40,18,07,00, 

10, 00, 80, 10, 00, 71, 20 'BWPS 

695 

DATA  00,4  2,20,00,44,20,00,38,10, 

00, 08, 10, 00, 08, 08, 00 'BWOX 

700 

DATA  A,$A,G,$G,F,E'BMPE 

705 

DATA    116,58,158,124,180,58,224, 

12  5,244,58,272,127,115,154,158, 

221,180,154,224,222,24  4,154,272, 

220'BRAY 

710 

DATA  0,-9  6,64,-96,64,0,64,96,0,96, 

-6  4,96,-64,0,-64,-96 'BYAL 
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Interfacing  Commodore's  User  Port 

C.nntitiuei! fmiii  /;.[;.  iVrj 

30  D=PEEK{56577) AND  128 

40  IF  D=0  GOTO  30 

50  POKE  56577, X 

60  FOR  T=l  TO  100:NEXT  T 

70  NEXT  X 

80  GOTO  10 

To  fliUy  iintlcrstiind  this  \vc  must  look  at  some  logic 
instructions,  ^bll  ni;iy  skip  diis  section  if  yon  fcxl  it's  tcK) 
difficult,  but  dii.s  logic  section  will  enricJi  \<)iir  :ibilir\-  to 
design  and  configure  tlie  user  |'K)rt  to  your  needs  witli  the 
minimum  amount  of  iastructions. 

Logic 

'[■here  are  two  logic  instructions  avmlal^le  to  us  from  BASK). 
Tliat  can  be  used  to  set  (binar\-  1 )  or  clc;ir  ( bimuT,-  0)  specific 
bits  on  tfic  port  without  affecting  die  other  liits.  Ihc}-  arc  A.NtJ 
iuid  OR  instructions. 

When  using  diese  instructions,  wc  are  comp;iring  the 
number  in  die  register  to  the  number  we  peek  or  poke  in  die 
register.  Tlie  results  am  be  used  to  make  uscliil  decisions  ;uid 
perform  functions.  For  each  set  of  bits  comp;ired  diere  ;tre 
four  possible  combinations. 

0  0 

0  I 

1  0 
1  1 


Commodore  Compatible 
and  only... $-149^00 


FSD-1  5V4"DJsk  Drive 
Directly  replaces  the  Commodore  1541  disk  drive. 

The  FSD-1  Disk  Drive  is  a  versatile  and  efficient  disk  drive  built  for  the  Com- 
modore series  of  personal  computers.  This  disk  drive  is  fully  compatibte 
witti  the  Commodore  64  ■  computer  and  directly  replaces  the  Commodore 
1541  Disk  Drive. 


Special  Features 

■  Huns  all  C-64  commercial  software 
'  Ready  to  run  rigtit  Irom  ttie  box 

'  Full  6  month  warranty 
'  Heavy  duty  constructkin 
'  Vented  metal  ctiassls 

■  Built  especially  (or  C-64  users 


To  Order  call  toll  free 
1-800-356-5178 

COMMODORE  E4  is  4  legitifriw  1'sd«m3 


Visa  &  MasterCard  welcome.  Credit  card 
orders  shipped  in  24  hrs.  Allow  S12.00 
shipping  and  handling.  Seiid  mail  order 
with  payment  to:  ' '  '  ' 


Emerald  Componenl  tnternatlonal 

Dept.  STN 

541  Willamette  Street 

Eugene,  OR  9740T 

Tel.  503-683-1184 


Here  arc  die  results  of  diese  two  instnicticins. 


Ai\D 

RESULT 

OR 

RESULT 

0 

0=  0 

0 

0=  0 

0 

1=  0 

0 

1=  1 

I 

0=  0 

1 

0=  1 

1 

1=  1 

1 

1=  1 

By  studying  tliese  results,  two  conclusions  can  be  drawn.  'ITie 
results  of  :ui  AND  instaiction  is  1  only  if  bodi  bits  itre  1, 
othervvi.se  die  results  arc  0.  And  die  results  of  an  OR 
iiistn.iction  is  0  only  if  lx)di  bits  ;ire  0,  odienvise  die  results 
;tre  I. 

Our  computer  uses  eiglit-bit  binary-  numlx;rs.  Examine  die 
following  examples. 

ANi:)  OR 

11010011    Register(21l)     llOlOOil    Register  (21 1 ) 
10(MK)101    AND  133  10000101    OR  133 

10000001    RI5UT(129)     11010  111    RESULT  (215) 
In  tlie  fourtli  program  we  u.sed  the  AND  ii^struction  to  test  a 
bit.  Then  we  made  a  decision  biLsed  upon  die  results.  Ix"t's 
analyze  how  die  prognim  accomplishes  diis. 
30  D  =  Peek     ( 565"-  >\ND  1 28 
OXXXXXXX     Register     X  =  any  \'alue  0  or  1 
10000000        AlVD  128 


00000000         RESULT     PEEK(  56577  )AND  128  =  0 
Tliis  instruction  compares  die  AND  1 2K  widi  die  number 
in  die  register  Tlie  only  bit  diat  c;in  have  ;iii  impact  on  die 
result  is  bit  7.  Because  ;ill  odier  bits  are  ;\j\D  widi  0,  dieir 
results  arc  0.  By  setting  bit  7,  we  have  die  following  sccncrio. 

IXXXXXXX     Register  X  =  any  v:Uue  0  or  1 

10(M)0000         AND  128 


10000000        RBSl  ;LT  PEEK(  565"'7  )ANT)1 28  =  1 28 
Widi  diese  two  possible  results,  wc  c;m  use  a  faniili;ir  b;isic 
decision  command  40  IE  D  =  0  THEN  GC:)TO  30. 

Setting  a  Bit  With  OR 

We  c;m  n.se  :ui  OR  iiisiniction  to  set  \'arious  bits.  It  is  ver^• 
usefij]  when  we  wish  to  set  specific  bits  widiout  dLsairbing 
the  status  of  die  odier  bits  on  the  port.  Any  number  that  is  OR 
with  a  0  rem;iiiis  unchjuiged.  Tlierefore,  if  we  %vish  to  set  bit  4, 
we  can  OR  bit  4  with  a  bin;ir\'  I  as  our  ex;unple  illustrates. 
10100010     Register 

00001000     OR  8         Command  =  R)KE56577.PEF.K 
10101010     RESULT     (56577PR8 
Tr^-  entering  die  following  commands  to  get  a  better 
iinderst:uiding. 

POKE  SCiS"';.  1 5  I5DR  Set-up. 

POKE  565"''.3  I-igltts  IJiDs  to  PBO  ;md 

PBl. 
POKE  56577,PEEK(  56577  PR8    Sets  bit  4  on  widiout 

disturliing  die  status  of 
die  odier  bits. 
VCIien  \ye  enter  our  last  commimd,  die  status  on  die 
interface  has  the  two  lliDs  lit.  Tliis  status  remains  unchanged 
as  wc  set  bit  4  on.  as  indicated  by  die  lit  LEDs. 

Tliere  are  odier  interesting  bit  ni:uiipulations.  but  we  do  not 
ha\e  die  lime  to  explore  liirdier.  For  tliose  interested  in 
Ix'coming  more  pn)iicient,  1  ad\ise  \'ou  \o  experiment  on 
your  own  ;ukI  pick  tip  a  IxKik  on  macliine-huiguage 
prx:>gnuiimiiig.  Q 
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AMIGA  UPDATE 


ii^  MATI  lil.MN 


Curing  the 
Red-Green 
Blues 

XiaiuiTf^i!"  I  cried.  "Tiierc  must  be  a 
better  way  to  m:ikc  colors  tlian  tliis.  You 
wouldn't  gi\-e  MichcUmgcIo  three  caiis  ol 
paint-r-red,  green  :uid  blue — and  ask  him 
to  mix  all  tlie  colors  of  tiie  minfx)w  from 
diose,  would  you?" 

A  \'oice  s[X)ke  fix)m  my  shoulder,  "Gee. 
tliat's  a  wild  sliade  of  pink.  What  are  you 
drawing?" 

"A  portrait,"  I  mumbled.  "That's  sup- 
posed to  be  flesh-color  not  punk-neon 
pink  Tliis  Amiga  is  :m  incredible  ma- 
chine— 4,096  colors,  no  less — but  who- 
ever heard  of  creating  a  palette  from 
three  colors?  Tm  having  tJie  de\'irs  o'wn 
time  tr>ing  to  get  shades  :uid  hues  tliis 
way,  mixing  red,  green  :uid  blue." 

"1  know  someone  else  who  has  an 
Amiga.  Maybe  he  c:ui  help?" 

'Tou  don't  meiui...?"' 

"None  odier  Tlie  Wiz  has  arri\'ed  on 
tlie  Amiga  scene  ;ukI  Amig:il;uid  will  nev- 
er he  tlie  s:ime.  He  must  ha\'e  sold  that 
baseball  c:ird  collection." 

More  likeh'  he's  in  hock  up  to  his  eye- 
balls, 1  tliouglit.  Now,  I'm  not  one  to  go 
begging  tor  favors,  but  1  wa.s  at  die  end  of 
my  artistic  n)pe  tning  to  turn  red.  green 
and  blue  into  a  robust  Horidi;uT  tan.  Be- 
sides, it  liad  fx;en  ages  since  I'd  paid  tlie 
Wiz  a  visit  The  last  time,  he'd  had  a  Com- 
modore 64  sy.stem  on  which  he  would 
pcrtbrm  miraculous  leaLs  of  graphics  and 
soimd  programming.  1  w;ls  eager  to  see 
what  the  Wiz  unleiLshed  could  do  witli 
an  Amiga,  the  ultimate  graphics  and 
sound  macliine. 

"So  what  arc  we  waiting  for?" 
The  VXIz  ,sat  perched  in  front  of  his 
Amiga,  intent  on  tlie  stre:un  of  chiiracters 
flowing  b\'  on  tlie  screen.  He  seemed  not 
to  notice  us  stiuiding  just  behind  him. 

"Shh — debugging!"  he  blurted,  as  1  was 
about  to  tap  his  shoulder.  I  snatched  my 
hand  back.  One  tloes  not  disturb  tlie  Wiz 
in  dcbug-inode,  unless  one  enjoys  exper- 
iencing tlie  frill  Lintxiunded  fury  of  a  four- 
teen year-old. 

"Aha!  Tliere's  tlie  little  bugger!"  he  ex- 
claimed. "Tliouglit  yt)u  could  hide  from 
me  in  diere,  did  \()u?  He  twirled  ;iround 
in  liis  chair  to  face  us.  "Wliat  can  I  do  for 
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ART  BAXTER 


you  gendemen?" 

"He's  got  a  problem  making  colors  on 
his  Amiga,"  volunteered  my  friend.  1 
stepped  on  his  toes  and  glared,  and  he  el- 
bowed me  :uid  glared  back,  but  shut  up. 

"Well  actujilh',  its  not  really  a  prob- 
lem... or  maybe  just  a  little  ]irobleni.  You 
see,  I'm  using  diis  graphics  program  to 
draw  nutle — er,  still-lifes,  and  I  know  die 
Amiga  ciui  gi\e  me  :tll  the  colors  I  need, 
onl\'  flesh  isn't  red,  green  or  blue,  and  I 
can't  quite  seem  to  get  tlie  colors  I  w;mt, 
but  what  1  re;ill\'  need.  . ." 

"What  )'ou  rcalh'  need  is  some  way  to 
generate  colors  odier  thiin  b)  mixing 
red,  green  ;ind  blue,"  said  the  VC'Tz,  finish- 
ing my  sentence. 

'"iciili,  I  w:int  to  be  able  to  pick  a  color 
and  look  at  its  .shades  ;uid  tints,  ;uid  not 
have  to  U^'  ;uid  figure  out  lio%%'  to  mix 
them  flxjm  red,  green  and  blue  myself" 

Tlie  Wiz  crcised  his  brow  and  looked 
diouglitfril  for  a  minute.  \Mien  he  does 
tliat  you  c;m  ;(]most  he:ir  litdc  cogs  ;uid 
disks  whirring  ;ind  clicking  away  lx;hind 
those  coke  lx)ttle  bottom  glasses  of  his. 
Then,  with  an  aura  of  profound  sagacit%", 
he  intonetl,  "Hue.  Saturation.  Luminance. 
C'est  c;t" 

My  friend  ;uid  I  exchanged  puzyJed 
glances.  The  Wiz  explained,  "That's 
French  for  'Tliat's  it."  Ybu  need  a  program 
diat  lets  you  choose  colors  by  hue,  satu- 
ration and  luminance  instead  of  red, 
green  luid  blue." 

"t)f  course,"  said  my  friend.  I  could  tell 
he  was  fiiking.  It's  a  bad  habit  of  liis. 


1  didn't  feel  enlightened  by  tlie  expla- 
nation, iuid  it  must  have  showed,  ;ls  die 
Wiz  continued:  "Even'  color  has  a  hue 
v;due,  a  saturation  value  and  a  luminiuice 
value.  'V'ou  can  make  ;ui)'  color  by  niLxing 
red,  green  ;uid  blue  liglit  because  those 
;irc  die  primary  additi\e  colors. . ." 

"Tliat's  how  television  w'orks,"  inter- 
rupted b)'  fnend.  Suddenly  he  ^^';LS  ooz- 
ing knowledge. 

Ignoring  the  interruption,  the  Wiz 
continued,  "But  you  c;in  ;ils«  specify-  a 
color  b\'  its  hue,  .sauinttion  luid  lumi- 
niuice. Imagine  a  color  wheel  \\here  }-ou 
li;i\'e  red  on  die  riglit  at  zeni  degrees, 
green  at  the  upper  left  at  120  degrees, 
;ind  blue  at  die  lower  left  at  2-i()  degrees, 
widi  ;ill  die  dilTerent  shades  in  beuvcen. 
Any  piu'ticular  color  in  die  specmmi  is 
found  somewhere  on  die  color  wheel, 
iind  its  po,sition  there  in  degrees  is  its  hue 
value." 

"Roy  G.  Biv."  remarked  my  fiiend  crjp- 
ticalK'.  "Now  I  rememix.T." 

"I  don't,"  I  said  tcx)lislily. 

"Didn't  dicy  teach  )'ou  an>tliing  in  .sci- 
ence chtss?"  he  quipped.  "Red.  Onuige. 
Yellow,  Cirecn.  Blue.  Indigo.  \'iolet:  Roy 
G.  Bi\." 

"It's  lui  acn)nyni  for  die  colors  in  tlie 
spectrum  in  die  order  diat  tliey  occur, " 
explained  die  Wiz. 

"Of  course,"  1  replied  (it  was  my  rum 
to  ftike  it),  "but  diat's  onl}-  se\en  colors — 
Where's  brown?  And  what  alxnit  flesh- 
tones?"  I  idways  was  suspicitjus  of  sci- 
ence teachers.  Where  had  die\-  hidtlen 
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brown,  anway? 

"lliat's  where  s;ituration  and  lumi- 
nance conic  in,"  the  Wiz  continiicd. 
"Ever  notice  how  those  seven  hues  on 
tlie  color  ch:irT — and  c\cn  tlic  sliadcs  in 
bct\\ccn — ;irc  ;UI  briglit?  E\'cr  wonder 
what  happened  to  all  the  dull  colors,  like 
tile  browi^s,  grays  and  beiges?" 

"\'es,  yes,  ;ind  tlie  flcshtones."  I  s;ud  im- 
patiently. "So  if  tlicn-'re  not  on  tlie  color 
wheel,  where  iire  tlney?""  "Well,"  he  con- 
tinued lei.surely,  "all  of  tliose  cok)rs  on 
tlie  wheel  arc  wliat  we  call  sitiirated. 
Tliat  is,  tile  red  on  tlic  color  wheel  is  as 
red  as  red  c;ui  get,  imd  tlie  likie  is  as  blue, 
and  so  on.  'Ilie  colors  which  ;iren"t  on  the 
color  wheel  ;ire  tlie  less-saturated  colors: 
less-saturated  red  is  pink,  less-sauirated 
blue  Ls  liglit  blue,  "^bu  c;ui  make  ;iny  col- 
or lighter  by  reducing  its  s:ituration."" 

"Oka\,"  I  countered,  "so  where 's 
brov\'n?  'Iliat's  not  lighter-  an\tliing.  ex- 
cept ligliter  dark- brown,  which  isn't  on 
tlie  \\'lieel.  And  what  about  darkei"  blue?" 
1  w'as  siiix-  1  had  him  no\^'. 

"I  was  just  getting  to  tliat."  lie  s;iid. 
"That's  where  luminance  conies  in." 
Oops,  I'd  forgotten  about  luminance.  "B\' 
decreasing  .sarunition.  you  can  make  ;in\' 
color  ligliter.  until  it  becomes  white,  but 
by  decreasing  luminance,  you  c;m  make 
any  color  darker,  until  you  get  black. 
Brown  Ls  re;dly  just  dark  orange,  onuige 
witli  a  lov\'  lumin;ince.  Flesh-tones  ;ire 
ligtit  rccLs  :ind  oranges,  darkened  a  little," 

"Now  wait  just  one  minute  here."  in- 
terjected m\-  friend.  He  hadn't  interrupt- 
ed for  so  king  I'd  fon^otten  be  was  tliere. 
"Ho%\'  caji  you  have  a  darkened  liglit  col- 
or? Doesn't  darkening  just  undo  what 
liglitening  did?" 

"\'ou're  mi.stiiking  lighten  for  brigliten," 
expUiined  tlie  Wiz. 

"Brigliten  is  tlie  opposite  of  darken. 
"When  you  lighten  a  color,  it  doesn't  nec- 
essarily get  ;uiy  brigliter — it  just  fiides  to- 
\^';Lrd  white.  It's  like  watering  down  the 
color,  milking  it  less  colortlil.  Red  fatles 
througli  liglit  red,  tlicn  pink,  tlien  a  pink- 
ish tint  of  white,  :uid  finally  to  just  white. 
Tliat's  what  decreasing  a  color's  satura- 
tkm  docs." 

"So  what  do  \()u  get. "  asked  my  friend, 
"if  you  take  a  liglit  pink  ;ind  tlien  d;irken 
it?"  Good  questions,  finally,  I  diought. 
Maybe  dierc's  hope  for  him  yet. 

"It  still  sta)'S  a  liglit  pink  color,  but  it 
gets  dimmer,  as  if  you  were  turning 
down  tlie  liglit.  'Hiat's  what  die  lumi- 
n;uice  of  a  color  doc-s.  XX'itli  fiill  lumi- 
nance,  a  color  Ls  as  briglit  as  it  can  get. 


luid  as  you  decrease  tlie  luminance,  it 
just  gets  dimmer  and  dimmer  until 
tlicrc's  notlijiig  left  at  ;iH,  iiotiiing  but 
black." 

Ttie  Vi'iz  turned  then  ;md  started  flip- 
ping through  a  long  box  of  .-^.5-inch 
Amiga  diskettes,  all  tlie  while  muttering 
to  liimself:  "...one  of  die  first  programs  I 
wrtJte...  when  I  got  tliis  tiling.,  here  we 
iirc!"  He  blew  a  tliin  la\'er  of  dust  oft"  of  a 
disk  ;md  popped  it  in  his  Amiga.  "1  lere's  a 
litde  AmigaBasic  pnignun  1  whipped  off 
in  a  lew  minutes  tliat  sliould  help  you 
out  nicel}'." 

I  gl;uiced  at  tlie  screen  as  the  ]irognim 
,scn.)lled  endless!)-  b\-.  "'^bu  sa\  little?" 

"Oh,  it's  mostl\-  comnients.  "Ilic  real 
meat  of  it — the  part  diat  tnui.slates  hue. 
saturation  and  luminimce  into  red,  green 
;uid  blue — is  only  eiglit  statements  long. 
Tlie  rest  of  it  just  draws  f;uic\'  ]iictures  to 
let  )'ou  sec  your  p:Jette.  You  ciui  make  a 
palette  with  up  to  .^2  colors,  which  is  as 
many  as  tlic  Amiga  will  display  at  once, 
nonnaily."  He  ran  tlie  progriun  ;uxl  a  p;H- 
ette  of  beautifiil  colors  splashed  acn)ss 
tlie  screen  in  bars  and  circles. 

"Prett\-.  huh?  Tliat's  just  the  beginning. 
You  can  look  at  c\er\-  shade  of  even-  hue 
here.  Tliese  are  only  24  of  them — you 
still  have  4,072  more  to  go. 

""What  tills  program  lets  you  do  is  cre- 
ate a  palette  b\'  specilS'ing  only  tlie  colors 
at  its  two  ends.  Tlie  program  tills  in  the 
colors  in  the  middle  so  you  have  a 
smooth  transition  from  one  i^nd  to  tlie 
otlier 

"You  select  each  end  color  b\'  specify- 
ing its  hue,  saturation  :ind  luniin;ince  val- 
ues, not  its  amounts  of  red,  green  and 
blue.  The  variables  h.  s  and  I  iurc  tlic  hue, 
Sitturation  and  luminiuice  viilues  of  die 
first  cok)r  in  tlie  ]">:ilette,  ;uid  hi,  s2  :uid  12 
are  die  corresponding  values  for  die  last 
color.  You  can  choose  die  number  of  col- 
ors you  want  in  the  pdette  by  setdng  the 
variable  nc. 

"Minx  if  >'ou  don't  like  die  gray  ;md 
black  colors  of  the  screen,  you  can 
change  them  by  changing  die  PAlJTlTh 
statements  in  die  main  paragraph.  But  re- 
member, the  PAIi-'TIT  command  needs 
red.  green  and  blue  arguments,  not  hue, 
saturation  and  luniin:uice. " 

My  head  was  beginning  to  spin.  "So...  if 
1  wiuit  to  see  some  flcshtones?"  1  asked 
weakly. 

"We'll  Stan  widi  \iolet,  which  has  a 
hue  \';ilue  of  ^M).  (or  h,  ;uid  go  dinjugli  a 
litde  yellow^ — say,  to  -40  degrees — for  li2. 
Tlien  we'll  \\'ant  a  fairh-  low  saturation  to 


liglitcn  it  lip — alxiut  0.5 — for  s  :uid  s2; 
and  we  don't  wiuit  it  too  briglit,  so  we'll 
try  a  luminance  of  0.9  for  1  :uid  12. 

Now,  diis  Ls  only  chmiging  hues,  be- 
cause we've  .specified  the  saturatujn  ;uid 
lumin:uice  as  die  .s;une  tor  die  first  mid 
last  color.  If  you  w;uitcd  to  see  :dl  die 
bright  reds  and  pinks,  for  instance — 
fix)in  red  all  die  waj-  through  white — you 
would  m;ike  die  st;trting  ;uid  ending  hues 
bodi  zero,  but  die  starting  satiinition  at 
1.0,  wliicli  is  pure  red,  and  die  ending 
.saturation  at  zero,  -^s'hich  is  white,  ;uid 
bodi  kiniin;uices  at  I.O.  Play  iiround  with 
it  ;uid  .see  v\'hat  you  get." 

And  so,  I  took  die  Wiz's  ad\'ice  luid 
t^ped  in  his  program  (he  was  too  che-aji 
to  gi\'c  it  to  me  on  a  disk).  And  oh.  what 
niar\elous  colors  I  now  have:  tints  :uid 
shades  imd  hues  galore!  I  fountl  that  nj- 
bust  Horidiim  t:iii  in  no  time,  ;uid  disco\ - 
ered  some  tantalizing  Mediterranean- 
bronze  hues  hiding  in  there  as  weU.  Ilie 
Hues  progriini  is  ci\ifized  enougli  to  tell 
you  what  die  red,  green  ;ind  blue  \'alues 
of  die  entire  p;ilette  were — or  even  write 
them  to  a  file  on  disk —  ;iJfter  you've  fin- 
ished ogUng  it.  'Hien  if  you  want  to  use 
the  palette  or  a  part  of  it  in  anodier  pro- 
gram, you  just  use  die  numbers.  Tiiey're 
in  liexadeciin;J  (base  16)  ;md  diere's  a 
routine  at  die  end  of  die  Huc-s  pnjgnun 
which  will  read  them  in  and  convert 
dicm  to  unit  \':ilues  tor  the  AmigaBasic 
PAlJiTTE  stiitenient. 

One  odier  thing:  Because  there  are 
t)nly  4,096  possible  colors,  if  you  u.se  .-^0 
colors  for  a  jxilette  wliich  ch;uiges  \'er\' 
litde  from  beginning  to  end,  you'll  get  a 
lot  of  identical  colors  next  to  each  odier 
in  your  palette,  or  even  a  few  colors 
which  are  a  little  off  because  of  rountling 
errors.  'Hiese  p;ilettes  \\ill  be  vastly  im- 
proved if  \'ou  use  fewer  colors,  sa)-,  20  or 
14. 

If  you  have  a  graphics  program  like 
mine  diat  lets  \ou  u.se  sliders  to  set  the 
red,  green  and  blue  :uiiounts  tor  colors, 
and  you  want  to  u.se  colors  generated  by 
Hues,  firet  note  the  red,  green  and  blue 
\-alues  for  each  of  the  colors  you  want  to 
use  from  die  list  diat  is  gcncnitetl  ;ifter 
the  palette  has  been  displaced.  Then 
when  you  are  setting  die  colors  in  )-our 
graphics  pnjgr.un,  start  each  slider  out  at 
zero  and  click  die  pointer  just  to  die 
right  of  die  slider's  niitrkcr  once  for  each 
count.  Each  click  should  advance  the 
slider  by  one-  sixteendi  of  its  tot;ii  r.uige 
(or  one  count). 

For  example,  if  you  want  to  set  a  color 
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w+iich  h;is  a  red  value  of  3.  a  grccn  value 
of  0,  ;uid  u  blue  \:dne  of  10,  first  set  :ill 
three  sliders  to  zero,  dien  click  beside 


the  red  slider  three  times,  then  bc-side 
the  blue  slider  ten  times,  leaving  the 
green  slider  at  zero. 

Oh  bv  tlie  wav,  1  should  ha\'c  \\'amcd 


you — the  Wiz  is  prone  to  fits  of  fantastic 
exaggeration.  The  program's  not  really 
mo5tl\-  comments  any  more  tJiim  it  t(x>k 
him  a  few  minutes  to  whip  it  off.  g 


Hues 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


+******+♦♦****+♦**♦***+**+*♦**************+***♦#** 


Program: 

Author: 

Date: 


Hues 
Mq11  BlalS 
18-Jun-1986 


•*  This  program  generates  and  displays  a  ** 

**  palette  using  a  HUE-SATURATION-LUMINANCE     ** 

•*  olgorithm  (converting  HSL  to  RGB).  ** 

•*  ** 

**  The  palette  is  defined  by  the  HSL  values  ** 

**  of  its  first  and  last  color,  and  the  colors  ** 

**  in  tietween  are  interpolated  by  the  program.  ** 

**  See  the  first  (ew  lines  in  'MokePalette'  to  ** 

**  change  the  tirst/last  color  HSL  values.  *' 

**  ♦* 

**  After  displaying  the  palette,  the  program  *• 

**  dumps  its  RGB  values  (in  the  form  ot  DATA  ** 

**  stQtement(s)  to  the  screen  or  to  a  file  for  "" 

**  use  in  your  programs.  •* 

**  ** 


Hues: 
DEFINTa-z 
DEFSNG  r,g,b,h,s,l,m 
DIM  red(32),gm(32),blu(32),pat%(l ) 

DEFFNi(r)  =  INT(r*16  +  .5)  +  (r>.96875) 

'  —  PALEHE  value  to  INI 
DEF  FNhS(i)  =  MID$C0123456789ABCDEF",i-i-l,l) 

'  —  I  NT  to  Hex  char, 

pi!  =  3.141593 

xmax  =  311  :  ymax  =  1 86 '  — Window  dimensions. 

SCREEN  2,320,200,5,1 

WINDOW  2,"Hit  Any  Key  To  Continue",CaiO)-(xmax,ymax),a2 

WINDOW  OUTPUT  2 

PALEHEO,  ,5,.5,.5 

PALEHEl,  .5,. 5,. 5 

GOSUB  MakePolette 
'  GOSUB  ReadPolette 

PALEHE  0,  0,  0,  0 
GOSUB  DrawBoxes 
GOSUB  DfowWheell 
GOSUB  DrawWheel2 

Finish: 
WHILE  INKEYS  <>  "" 

WEND 

WHILE  INKEYS  =  "" 

WEND 

WINDOW  CLOSE  2 
SCREEN  CLOSE  2 

GOSUB  ListPolette  '  —  List  palette  data  to  a  file 

■  or  to  screen. 


'  ->  Foreground  color. 


'  —  You  could  do  this  instead 

'  of  MokePalette 

'  ->  Background  color. 


'  —  Throw  oway  oil  buffered 
'  keypresses 

'  —  Wait  for  the  next  key. 


END 


MokePalette: 
'  —  Hue  is  specified  in  degrees  (from  0  to  360),  Pure  Red  is 
'  —  at  0,  Yellow  at  60,  Green  at  1 20,  ond  Blue  at  240,  with  the 
'  —  various  stiades  somewhere  in  between.  Values  greater  than 
'  —  360  wrap  back  around  thru  zerom,  so  you  can  go  from  240  to 
'  —  420  (60),  for  example.  Saturation  ranges  from  0  to  1 , 
'  —  where  1  is  full  color,  which  fades  !o  gray  as  saturation 

-  falls  to  zero.  Notice  that  it  soturation  is  zero,  it  makes 

-  no  difference  what  value  hue  hos:  ifs  all  gray  Lumin- 

-  ance  also  ranges  between  0  and  1 ;  1  gives  you  full  bright- 

-  ness,  which  gets  darker  as  luminance  falls  to  zero  (black). 

-  If  luminance  is  zero,  you  get  black  regardless  of  hue  and 

-  saturation, 
h  =  0  '  •>  First  color's  Hue. 
s  =  ,8  '  ->  First  color's  Saturotion. 
I  =  .9  '  ->  First  color's  Luminonce. 


h2  =  348 
s2  =  ,8 
12  =  .9 


->  Last  color's  Hue. 
->  Last  coior's  Soturation. 
'  ->  Last  color's  Luminance. 

->  Number  of  colors  in  this  polette. 


nc  =  24 

IF  nc>32  OR  nc<3  THEN 

WINDOW  CLOSE  2 

SCREEN  CLOSE  2 

PRINT:  PRINT  "'nc'  must  be  between  3  and  32!" 

END 
END  IF 
ncl  =  nc  - 1 
fc  =  32-nc 
h3  =  (h2-h)/ncl 
s3  =  (s2-s)/ncl 
13  =  (l2-l)/ncl 


FORi  =  fcTOfc  +  ncl 
GOSUB  MakeRGB 
PALETTE  i,  r,g,t) 
h  =  h  4-  h3 
s  =  s  +  s3 
t  =  I  — 13 
red(i-fc)  =  r 
gm(i-fc)  =  g. 
blu(i-fc)  =  b 

NEXT 
RETURN 


—  ID  of  first  color  in  palette, 

—  Hue  incremenf 

—  Saturation  increment 

—  Luminance  increment, 

—  For  eoch  palette  color: 

—  Convert  HSL  to  RGB. 

—  Set  palette. 

—  Increment  Hue. 

—  Incremenf  Saturation. 

—  Increment  Luminance. 

■  —  Save  r,  g,  and  b  values  for  later. 


MokeRGB: 


-Converts  h,s,  1  to  r,g,b. 


r  =  (120-ABS((h-fl80)MOD  360-180))/!  20 
g  =  (120-ABS((h+  60)MOD360'180))/120 
b  =  (120-ABS((h-(-300)MOD  360-1 80))/l  20 
m  =  -ABS(h  MOD  120-60)/120-.5 
si  =  l-s 

r  =  (r/m'*(r>0)'s  +  sl)*l 
9  =  (g/m*(g>0)*s-hsl)*l 
b  =  (b/m»(b>0)*s-i-sl)'l 
RETURN 


DrawBoxes: 
xw  =  (xmax-1 6)/nc/2 


'  —  Width  of  eoch  box. 
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'  —     each  color  in  the  polette. 

y  =  2 

—  Y-position  of  each  box, 

yh  =  42 

—  Box  tieigfit. 

PRINT :  PRINT  "Enter  file  nome  to  save  palette  data  to  disk" 

xl  =  (xmax-xw*nc*2)/2 

—  X-posifion  of  first  box. 

INPUT  "or  <RETURN>  to  list  doto  to  screen ";  fl  S 

X  =  xl 

!FflS  =  ""THEN 
fl$  =  "SCRN:" 

FORi=fcTOfc  +  ncl 

ELSE 

LINE  (x,y)-STEPCxw,vh),i,bf 

PRINT;  PRINT  "Type  in  a  SHORTone-line  description  of  this  palette;" 

X  =  X  +  xw 

INPUT  descS 

NEXT 

END  IF 

FORi  =  fc  +  nclTOfcSTEP-l 

—  Now  go  backwards  thru  palette. 

PRINT 

LINE  (x,y)-STEP(xw,yh),i,bf 

IFdesc$  =  ""THENdesc$  =  "Number  of  colors  in  this  palette." 

X  =  X  +  xw 

OPEN  fl$  FOR  OUTPUT  AS  #1 

NEXT 

pi  =  8                      '  —  #  of  r,g,b  se)s  per  data  line. 
1  =  0                          '  —  1  is  current  color  #  in  r%0,  etc. 

y  =  y+ylV2 

PRINT  #1,  "DATA";  NC;  ":  '  —  ";  descS 

UNE(xl,y-2)-(x,y+2),0,f)( 

•—  Draw  horizontal  bar 

X  =  xl  +  xw 

FORj=l  T0INT(nc/pl  +  .99) 

FOR  N1  TO  00*2 

—  Draw  vertical  bars. 

PRINT  #1,  "DATA"; 

LlNECx,V+l)-STEP(0,ytV2),C 

) 

c  i  +  pl-1                  '  —  C  is  last  set  #  on  current  doto 

X  =  X  +  XW 

IF  onci  THEN  c  =  ncl '  —  line. 

NEXT 

FORk=iTOc 

RETURN 

r$  = 

FNhS(FNi(red(i)))       '  —  Convert  INTs  to  hex  characters, 

DrcWWheel: 

gS  =  FNhS(FNi(gm(i))) 

ixit%(0)  =  &HFFFF 

—  Fill  pattern  for  wheels  (solid). 

bS  =  FNhS(FNi(blu(i))) 

pat%(l)  =  &HFFFF 

PRINT  #l,r$  +  ","  +  gS  +  ","  +  b$; 

PAHERN  ,pcrt% 

IF  k<c  THEN  PRINT  #1,","; 

xr  =  70 

—  X-rodius  of  wheels. 

i  =  i  +  1 

yr  =  .88*xr 

—  Y-radius. 

NEXT 

X  =  xmaxy'4 

—  Wheel  #l'sX-center. 

PRINT  #1,"" 

y  =  ymax-yr-13 

—  Y-center 

NEXT 

m  =  0 

—  Initial  position  (radians). 

CLOSE  #1 

rs  =  2*pl!/nc 

—  Wedge  step  (radians). 

PRINT 

FORi  =  0TOncl 

RETURN 

COLOR  te  +  l 

GOSUB  DfOwWedge 

—  Draw  wedge  at  m  rodions. 

ReadPalette: 

m  =  m  +  rs 

—  Increment  around  ttie  circle. 

'  —  You  can  use  this  routine  in  your  own  programs  to  read  in 

NEXT 

'  —  palette  data.  To  get  the  DATA  stotements  from  a  file  into 

RETURN 

'  —  your  AmigoBosic  program,  load  your  program  ond  type  "merge 
'  —  XX",  (XX  is  the  dato-file  name)  and  the  DATA  statements 

DrowWheei2: 

'  —  will  be  at  the  end  of  your  program.  FNd(xS)  converts  and 

rs  =  rs/2 

—  Tfiese  wedges  ore  1  /2-size. 

'  —  scales  a  hexadecimal  digit  to  0  - 1 . 

X  =  xmax*3/4 

—  Wheel  X-center. 

ml  =0 

—  Top  half  position  (radians). 

DEF  FNd(xS)  =  ASC(UCASE$(x$))-48  +  (xS>"9")*7     '  —  Hex 

m2  =  2*pi!-rs 

—  Bottom  half  position  (radians). 

'  digit  char. 
'  to  INT. 

F0Ri  =  0TOncl 

RESTORE  Polettel 

COLOR  fc+i 

READ  nc                      '  —  First  data  item  is  #  of  colors  In  palette 

m  =  ml 

ncl  =  nc-1 

GOSUB  DrawWedge 

—  Draw  top  wedge. 

fc  =  32-nc                  '  —  Fc  is  the  ID  of  the  first  color. 

m  =  m2 

FOR  i  =  0  TO  ncl 

GOSUB  DrawWedge 

—  Draw  bottom  wedge. 

READ  rS,gS,b$ 

ml  =  ml  +rs 

—  Increment  around  1  /2  o  circle. 

r  =  FNd(r$)/l  6         '  —  Convert  hex  digits  ("0"  -  "F") 

m2  =  m2-rs 

g  =  FNd(g$)/l  6        '  —  into  unit  values  (0  - 1 )  lor 

NEXT 

b  =  FNd(b$)/l  6        '  —  PALEHE  statemenL 

RETURN 

PALETTE  fc  +  i,r,g,b 

red(i)  =  r                '  —  Save  polette  r,  g,  ond  b  values  for  later 

DrawWedge:      '  —  Draw  ond  fill  one  triongulor  sector  of  a  circle. 

gm(i)  =  g 

AREA  (x,y) 

blu(i)  =  b 

AREA  (X  +  xr*C0S(m),  y-yr'SINCm)) 

NEXT 

AREA  (X  +  xr*C0S(m  +  fs),  y-yr*SIN(m  +  rs)) 

RETURN 

AREAFILL 

RETURN 

Polettel: 
DATA  1 5  ;■  —  Violet  ->  Yellow  palette. 

ListPalette: 

0ATAE,3,E,  E,3,C,  E,3,A,  E,3,8,  E,3,6,  E,3,5,  E,3,4,  E,3,3 

'  —  List  the  red,  green,  and  blue  values  of 

DATA  E,4,3,  E,5,3,  £,6,3,  E,8,3,  E,A,3,  £,0,3,  £,£,3                 |„g-. 
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BY  JOHN  J.  KOTTIi-R 


Amiga 
Date-Setter 

J^id  you  c*\er check  tlic diivctorics on 
\'oiir  ;\mig;i  disks?  Of  course  \()ii  h;i\c. 
But  did  )'ou  ever  use  die  U^S  T  coniniiuid 
from  the  CLI?  Well,  try  it  now  and 
chances  are  you  wil!  find  plenty  of  \'our 
progr.ims  dated  liy  "l-i:ri:w{"'  instead  of 
anotlier  tiate.  If  you  do  iijulate  tlie  tlate 
every  time  )C)u  use  the  computer, 
doesn't  it  t;ike  quite  a  while  to  load  and 
use  the  Preferences  pn)gnim?  If  you  rc;il- 
ly  want  to  keep  your  Files  straiglit  ;uid 
keep  track  of  when  you  did  what,  here  is 
an  easier  way. 

Command  Line  Interpreter 

TTie  Comm;tnd  Une  Interpreter  (CIJ 
for  short)  icon  lets  a  aser  use  the  Amiga- 
DOS  operating  system  inside  of  the 
AmigiL  AmigaIX)S  is  quite  simiUir  to  MS- 
DOS  or  other  IBM  DOS  s-\stems.  Once 
you  have  entered  CU, )  ou  have  access  to 
many  dLsk  commands.  You  c:in  format 
disks,  copy  single  files,  ;ind  copy  an  entire 
disk,  to  n;une  a  few. 

'Ilic  CLI  includes  two  commands  diat 
list  die  disk  directory,  DIR  and  US'I".  DIR 
lists  tlic  disk's  contents  to  tlie  screen  in 
alphabetic;!!  cjrder  v^itli  sulxlirectoric-s  at 
tlie  top.  UST  lists  tJie  contents  ;ilong  widi 
tlie  dates  the\'  were  s;i\ed.  If  you  do  not 
update  the  date  and  time,  \<)u  may  find 
words  like  "RTLRE"  aplacing  normal 
dates.  To  a%oid  tliis  problem,  you  c:ui  up- 
date tile  date  witii  tlie  Preferencc-s  pnj- 
gnun.  However,  tliis  is  tinic-consimiing 
;ind  often  impractic;il, 

Start-up  Sequence 

Tlie  iuiswer  lies  in  a  smiill  tile  known 
;ls  die  St:irt-up  Sequence,  which  is  found 
under  tlie  S  director)-.  'Hiis  Start-up  Se- 
quence file  is  tlie  file  diat  prints  the  mes- 
sage on  the  screen  when  the  Amiga 
boots.  Tlie  trick  is  to  alter  tliis  tile. 

The  first  step  Ls  to  enter  tlie  ClIJ  mtxJe 
if  you  ;ire  not  ;iiread\-  in  it.  'Iliere  are  two 
ways  to  enter  die  CU  mcKle.  l-"irst.  if  your 
Amiga  is  already  Ixxited.  \  ou  can  select 
the  CU  icon  from  the  Utilities  drawer  on 
the  Vk'orkbench  Disk,  or  second,  if  you 
insert  the  Workbench  Disk  after  you 
lia%e  reset  the  computer,  you  c;ui  hold 
CONTROI.-D  to  stop  die  Amigii  after  die 


Keep  your  flies 
straight  by  tracking 
when  you  did  what 


blue  screen  is  displaced.  In  eidier  cxse, 
the  prompt  "1>"  will  be  displayed  inside 
the  window  named  AmigaDOS.  Now 
you  c:ui  use  die  Amigii's  disk  conimiuuLs. 

I  suggest  diat  you  first  make  a  cop\'  of 
your  Workiicnch  onto  a  bUuik  disk  so 
that  you  will  not  destnn-  die  origin;d. 
This  can  be  accomplished  by  t)ping 
DISKCOP^'  DI'O:  TO  DPI:  if  you'  have 
more  tlian  one  dri\'e.  Change  die  Dl' 1 :  to 
DFO:  if  you  ha\e  only  one  dri\e. 

i\ftcr  you  ha\e  t\ped  diis,  )<.)u  will  be 
reminded  to  insert  the  original  disk  into 
the  internal  dri%c  and  blank  disk  into  the 
external  dri\'e  #1.  You  should  have  the 
write-protect  notch  in  die  read-only  po- 
sition on  your  original  so  )'oii  will  not 
erase  it  by  mistake.  When  you're  ready, 
press  RETURN  and  die  prtKcss  v^'ill  be- 
gn. 

Tlie  ciUTcnt  track  number  is  ;ilwa)S 
displaced  su  you  kntw  how  much  long- 
er you  have  to  w;iit.  You  shoukl  expect 
to  sec  79  when  you  arc  finished  (0-79  is 
80  tracks  when  track  0  is  included). 
Don't  renio\e  the  disks  riglit  away,  be- 
cause die  Amiga  needs  a  second  to  initia- 
lize both  of  die  drive  units.  Now  diat  you 
have  a  second  copy  of  Workiiench,  you 
do  not  have  to  worry  about  chiuiging  die 
original  Start-up  Sequence. 

Using  flie  ED  Command 

The  ED  command  is  a  complex  com- 
mand that  edits  text  files.  Even  diougti 
the  Start-up  Sequence  file  is  a  luxjt-flle,  it 
can  stUJ  be  edited  like  a  text  file.  To  etlit 
Start-up  Sequence,  enter  die  following 
line,  assuming  that  your  copy  of  Work- 
bench Ls  now  in  die  inteni:d  drive  unit: 
ED  "DFOS/STAKTUP-SEQUENCE". 

After  a  second,  die  screen  will  display 
the  contents  of  die  file.  'I"he  file  should 
contain  several  ECHO  commands,  a 
LOADWB  command  and  an  EXDCU 
command  The  editor  works  similarly  to 
the  new  AmigaBASIC.  Use  the  a^^o^^• 
kc\s  to  mo^■e  around  the  screen  ;ind  u.se 
the  delete  and  backspace  ke}s  to  entse 
the  text  firom  both  directions.  luich  time 
you  t\pe  a  ch;inicter.  it  will  be  inserted 


instead  of  written  over.  Once  you  be- 
come acquainted  with  die  text  manipu- 
lation, you  can  edit  the  Start-up  Se- 
quence file. 

Echo . .  -Echo . .  .Echo . . . 

No,  die  ECHO  comni;ind  doesn't  actu- 
ally echt^it  acts  like  die  BASIC  PRINT 
statement.  Just  as  you  %\()uld  t\pe  PRINT 
"I  LOVE  MY  AMIGA! "  you'  can  type 
ECHO  "I  LOVE  M\'  AiVUGA! ". 

First,  delete  die  ECHO  diat  says  "Use 
Preferences  tcxil  to  set  date,"  Wipe  it  out 
completel)'.  Now  on  diat  same  line,  t\pe 
die  following  widi  a  return  ;tfter  each 
line. 

ECHO  "HeUo!  The  LAST  date  saved 

was:" 

DATE  VER  DATEFILE 

ECHO " " 

ECHO  "What  dav  is  it  today?  (DD- 

M\LM-\T)" 

DATE? 

ECHO " " 

ECHO  "VCliat  dme  is  it?  (HH:MM5S)" 

DATE? 

ECHO  "  " 

DATE  TO  DATEFILE 

ECHO  "Tod;iy's  date  is:" 

DATE 

Now  to  explain  what  Is  happening. 
First,  the  message  "Hello!  Tlie  last  date 
saved  was:"  appears  followc-d  by  what- 
ever date  Che  Amig;i  can  remember.  Ob- 
\iously.  when  the  computer  asks  what 
day  and  time  it  is.  )Ou  can  enter  it  after 
the  prompt  is  displayed.  However,  you 
may  have  noticed  that  there  are  two 
"DATE?"  commands  to  set  both  the  date 
and  time.  The  only  -way  the  Amiga  can 
distinguish  between  a  date  entrj-  ;ind  a 
time  cntr\'  is  by  the  wa\-  it  was  entered. 
When  asked  to  enter  the  date,  you 
should  use  die  "DD-MMM->V  nieditxl. 
For  example,  to  enter  "December  25, 
1985"  you  would  enter  ■'25-Dec-85. ' 
Each  "MMM"  stands  for  the  first  three  let- 
ters of  the  mondi. 

Once  you  are  prompted  to  enter  die 
time,  you  can  use  eidier  the  HH:MM5S 
or  die  HH:MM  method,  for  example,  2 
o'clock  PM  would  Ix'  entea-d  ;ls  militiir)' 
time  14.<X3.  If  you  wantcxl  to  change  it  to 
quarter  after  two  in  the  aftcTnoon  plus 
36  seconds,  you  would  enter  that  as 
14:15:36. 

After  you  have  entered  die  correct 

date  and  time,  the  Amiga  \\'ill  resale  die 

Continued  on  pg.  I2~ 
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AmigaBASIC  Tutorial 

Part  3:  Mouse 

A  short  program  demonstrates  difficult  areas  of 
AmigaBASIC,  offering  both  tips  on  confusing 
areas  and  tricks  to  make  roar  life  easier  Rather 
than  an  article  followed  by  a  program,  we  have 
combined  them  for  the  sake  of  clarity. 

This  file  contains  infonrtotton  peftaining  to  the  use  of  the 
IVIOUSECX)  function.  Ttils  is  what  is  used  to  monitor  the  left 
MOUSE  button,  tt  doesn't  effect  the  right,  or  MENU,  button 
at  OIL 

MOUSE(X)  parameters  can  t3e  numbers  from  0  to  6  with  each 
pertaining  to  a  specific  funclion.  Ttiese  functions  ore  os 
follows; 

0  ->  tops  trock  of  Itie  stotus  of  the  left  mouse  button. 

It  will  reluin  one  of  the  following  values: 

0  — »  The  left  button  is  not  currentty  down. 

1  to  3  ->  Tlie  t)ut1on  is  not  currently  down,  but  has 

been  ciicked  the  #  rietuiried  times  since 
the  lost  call  to  MOUSE(O). 
- 1  to  -3->  Ttie  button  is  being  held  down  otter  being 
clicked  the  #  returned  times.  These 
values  usually  indicate  that  the  mouse  is 
being  moved. 

1  ->    IMjms  the  current  X  coordinate.  This  Is  the 

coordinate  at  whicli  the  pointer  wos  located  when  the 
MOUSE(0)  call  was  mode,  irregardless  of  wtiether  ttie 
buflon  is  being  held  down. 

2  ->    Returns  the  current  Y  coordinate.  This  is  handled 

in  the  some  monner  as  M0USE(1 )  above. 

3  ->   Returns  the  Starting  X  coordinate  of  ttie  pointer 

from  the  last  time  that  the  button  vros  pressed 
before  l^dOUSECO)  was  called.  It  is  used  in 
conjuncfion  v^rith  M0USE(4)  to  get  the  storting  X  and 
Y  coordinates  for  things  tike  line,  box  and  circle 
wOfK 

4  ->   Returns  the  Starting  Y  coordinote  of  the  pointer 

from  the  last  fime  that  the  button  was  pressed 
before  MOUSE(0)  was  called. 

5  ->    Returns  the  Ending  X  coordinate  of  the  pointer  if 

the  button  was  being  held  down  the  last  time  that 
IVIOUSE(O)  was  called.  If  the  button  wos  not  held 
v*en  the  lost  MOUSE(O)  was  colled,  it  will  retum 
the  X  position  at  which  the  button  wos  releosed. 
This,  in  conjunction  with  M0USE(6),  will  allc^(v  you 
to  teep  track  of  pointer  movement  and  detemnine  the 
X  ond  Y  coordinates  where  nnovement  stops. 

6  ->    Returns  the  Ending  Y  coordinote  in  the  same  monner 

OS  M0USE(5)  obove. 


WINDOW  2,TitleS„8 

PALfTTE  1,1,1,1  ;PALETTEO,0,0,0:PW.EnE  3„9„ 9.0: PALETTE  2,0,.6„3 
Jo  =  WIMDOWC?) 

Irfo: 
OS:  LOCATE  2,1  :  COLOR  2,0 
PRINT "       Mouse(X)  demcxisfration.  As  you  opefote  the" 
PRINT "       Mouse,  the  different  values  will  change  on" 
PRINT "       screen.  Pleose  keep  in  mind  that  there  is" 
9W\ "       quite  a  bit  of  updating  going  on,  so  forgive" 
PRIf^ "       me  if  this  demo  seems  sluggish.  You  most" 
PRINT "       iikely  won't  use  ALL  of  these  ALL  of  the" 
PRINT "        fime." 

PRINT :  PRINT  "       Move  the  Mouse  and  Click,  or  Click  ond  " 
PRINT "  Hold,  ttie  left  button  to  see  the  changes." 
LOCATE  1 8, 1  :  PRINT "        Notice  how  M0USE(5)  and  M0USE(6)" 
PRINT "       chonge  virfien  you  hold  do  button,  These" 
PRINT "       registers  are  the  most  importont  for  keeping" 
PRINT "       track  of  locotion  for  things  like  drawing" 
PRINT "       and  forgetting  (in  gonries)." 
PRINT :  PRINT "  Click  on  the  CLOSE  gadget  to  end  this  demo." 

MainLoop; 
WHILE  WIN1X)W(7)  =  Ja 
MOUSE  ON  :  ON  MOUSE  GOSUB  MouseLoop 
A3  =  0  :  A4  -  A3  :  PALEHE  3,RND,.3,RND 
FOR  [>elay  =  1  TO  200 :  NEXT  Delay 
GOTO  MainLoop 
WEND 

WINDOW  CLOSE  2 
STOP 

MouseLoop: 
zero  =  MOUSECO) 
one  =  MQUSE(l) 
two  =  M0USE(2) 


WINDOW  OUTPUT 


Titles  =  "  Mouse(X)  Tutorial 

ScneenDd': 

'  We'll  just  use  the  standard  WORKBENCH  screen  tor  Shis  one 

WindcwD^: 


Tim  Jones 


■  These  values  are  held  as  variable 
to  presen/e  them  for  our  use  in  cose  we 
don't  respond  to  the  button  right  away. 
'  The  others  ore  to  be  fiandled  as  they  occur  and  not  as 
'  voriobles.  This  will  allow  for  more  instantaneous 
'  control  over  the  results  of  those  registers. 
COLOR  1,0 

LOCATE  10,34  :  PRII^  "Mouse  (0)  =  ",zero," 
PRir^ 

PI^INT"        Mouse(l)  =";one,"iyiouse(2)  =  ",lwo" 
PRINT 

PRINT "        Mouse(3)  =  "MOUSECS);"  Mouse(4)  =";M0USE(4);" 
WHILE  MOUSE(O)  <  0 
COLOR  1,0 
LOCATE  16,24 

PRINT  "Mouse(5)  = ";:  COLOR  3,0 :  PRINT  M0USE(5);: 
COLOR  1,0 

PRINT  '■  Mouse(6)  = ";:  CaOR  3,0  :  PRINT  M0USE(6)," 
Al  =  M0USE(5) 

A2  =      M0USEC6):  PSET(A1,A2),3 
IFA3O00RA4O0THEN 

UNE  CA1,A2)  -  (A3,A4),3  '  PSET  and  LINE  will  be  covefKl 
END  IF  '  in  parts  4  and  5  of  this 

'  series 
PALETTE  3,RND,RND,RND 
A3  =  At  :  A4  =  A2 
WEND 
RETURN 

This  file  is  being  presented  os  on  old  to  prospective 
AmigaBASIC  programmers.  1  am  interested  in  spreading  the 
use  of  the  longuoge  because  of  its  extreme  versatility. 
I  hope  that  the  infornrafion  presented  here  hos  aided  yoii  in 
someway 

If  you  hove  any  comments  or  corrections,  I  con  be  contacted 
through  People  Link  as  AmSoft  I. 
If  you  like  to  coll  Amiga  BBS's,  I  con  olso  be  reached  ol: 
Wondertond  BBS  (617)-665-3796 
ZertGeistBBS(516)-679-3105 
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TAKE  THE  Q-IINK  CHALLENGE! 

IF  YOU  WIN,  GET  THREE  PRIZES! 

•  A  MODEM 

•  A  FOUR-MONTH  Q4INK  MEMBERSHIP 

•  LUCASFILM'S  IMff/r4r  SOFTWARE 


Complete  the  Challenge  of  the  Month  correctly  and  you  will  be 
eligible  to  win  a  great  pri7.e  pKckugc! 

Each  month,  20  individuals  will  be  chosen  from  the  pool  of 
correct  Challenge  entries  and  ihe  winners  will  receive  a  prize 
package  that  includes  all  this! 

•  A  free  Commodore  300-baucl  modem  (Model  I6OO). 
Viith  this  modem,  you'll  be  able  to  hook  up  your  Commodore 
64  or  1 28  to  a  telephone  and  access  QuanlimiLlnk.  the  official 
online  service  for  Commodore  owners. 

•  A  free  QuantumLink  four-month  membership. 
Quantuml.ink  membership  normally  costs  just  S9.95  per 
month,  and  includes  unlimited  use  of  a  base  tier  of  services 
and  one  free  hour  of  access  each  month  to  special  Plus 


services.  As  a  ('hallenge  winner,  you'll  get  Quantuml.ink 
software  and  your  first  four  months  membership  free! 
•  A  free  copy  of  Lucasfilm's  Habitat  software. 
Habitat  is  the  new  mulli-piaycr  game  that  utilizes  the 
QuantumLink  network  to  interconnect  thousands  of 
Commodore  owners  from  across  the  country.  Participants  can 
quest  for  hidden  treasure,  investigate  intriguing  mysteries. 
and  participate  in  the  ongoing  drama  of  this  innovative  and 
exciting  graphic  adventure. 

Consolation  Prize! 

Lf  the  Challenge  entrj*  you  submit  is  correct,  but  your  name  is 
not  chosen  from  the  pool  of  correct  entries,  you  will  be  sent  a 
Q-Link  softw^are  kit  for  FREE! 


HERE'S  HOW  TO  EHTER! 

Simply  complete  the  Challenge  ol'  ilie  ,VI()nth  and  send  it  with 
this  coupon  to  Quantum  Computer  Services.  8620  Westwood 
Center  Drive,  Vienna,  VA  22180.  Attn:  Challenge  of  the  .Month 
# (fill  in  the  correct  Challenge  of  the  Month  number). 

NAME 


.\DDRESS . 
CITY 


-STATE- 


-^IP  CODE 


PHONE  NUMBER  L 


YOU  MUST  ANSWER  BOTH  QUESTIONS  TO\(1N: 

Are  you  currently  a  member  of  Quantuml.ink? 

I    I  Yes — if  I  win,  e.vtend  my  membership  for  four  months? 

Q  No  —  if  1  win,  send  me  the  Q-Link  software  and  free  four- 
month  niember.ship.  If  I  get  the  Challenge  correct  but 
don't  win,  send  me  a  free  Q-Link  software  kit  as  a 
consolation  prize. 

Do  you  currently  own  a  modem?' 

[J  ■\'cs — if  1  win.  send  me  a  substitute  prize. 
Q  No — if  I  win,  send  me  the  modem. 


CHALLENGE  OF  THE  MONTH 

#5 


To  solve  the  puzzle,  rearrange  the  letters  to 
form  words.  The  words  will  form  a  sentence 
describing  Q-Link. 


IJNmJAMKQUm  GRITSBI 

OMDEOCMRO  PECSMOTUB 

OTFIEL 
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A  Beginner's  Guide  to  Burst  Mode 

Continued  from  p^.  "'5 

Burst  Transfer  Protocol 

The  burst  transfer  protocol  is  really  quite  simple.  During 
normal  data  transfers  (those  using  PRINT#"s,  GET#'s,  LOAD, 
SAVTE)  t)etv\'een  a  128  and  a  1571  or  1541  drive,  a  significant 
fraction  of  time  is  taken  up  b)'  the  comoluted  patli  through 
the  KERNAL  ROM  that  must  be  followed  for  each  b\te  to  be 
sent  and  by  the  signal  system  used  between  the  sending  and 
recei\Tng  devices  indicating  that  a  b\te  has  been  sent/recei\ed 
and  it  is  time  to  send'receive  the  next. 

Burst  mode  eliminates  much  of  this  inefficiency'  b}'  sending 
data  based  on  a  much  simpler,  and  therefore  much  faster, 
hardw^are  handshake.  Data  is  exchanged  directly  bet^veen  the 
1571  and  the  data  register  of  complex  interikce  adaptor  #1 
(CIA#1 )  in  the  1 28  based  on  a  simple  signal  from  the  normal 
serial  bus  controller  (CIA#2)  also  in  the  128. 

There  are  four  simple  steps  to  performing  a  burst  mode 
read  operation  (data  from  1571  to  128);  send  the  appropriate 
command  string  to  access  a  burst  mode  read;  initialize  the 
ClA's;  read  the  data;  and  restore  the  deiault  I/O  de\ices. 

The  first  step  can  \x  performed  by  either  machine  language 
or  BASIC  statements.  As  outlined  preNioush',  a  t)pical  BASIC 
statement  may  be  open  1 5.8, 1 5,"uO"  +  chr  S{  1 0 ).  This 
particular  example  will  ask  the  15^1  to  use  the  QUER\'  DISK 
FOR.\LAT  command  to  anal>-ze  the  format  of  side  0,  track  0  of 
a  disk  The  second  step  is  to  initialize  the  interrupt  register  of 
CIA#  1  and  tell  the  serial  bus  that  you  are  ready  to  recei\-e  data. 
It  is  easiest  to  do  tliis  with  machine  language  (ML).  A  short  ML 
program  can  easily  be  poked  into  RAM  from  BASIC  or  entered 
with  BASIC  7.0's  MONITOR  command  and  called  widi  a  S\'S 
statement  The  ML  instructions  are 

sei 

bit  SdcOd 

Ida  SddOO 

eor#S10 

sta  SddOO. 

If  this  procedure  is  being  called  as  a  subroutine  from  either 
BASIC  or  .ML,  then  >'ou  will  need  to  add  an  rts  iifter  the  last 
instruction  to  return  to  tlie  calling  program.  The  first 
instruction  disables  tlie  normal  processor  interupts  soich  ;is 
ke\-faoard  scanning.  This  increases  the  amount  of  time  that  the 
hardware  can  dedicate  to  data  transfer  and  eliminates  tlie 
trapping  of  ke\bo;ird  presses  \\hich  may  cause  em)rs  during 
data  transfers.  The  bit  iastniction  is  used  to  reset  tlie  interupt 
control  register  (ICR)  of  CIA#1.  Tlie  final  tliree  instnictions 
toggle  the  state  of  the  acknowledge  and  ready  for  data  (ARFD) 
Line  which  is  used  ;>s  a  cUx;k  during  the  burst  transfer.  This  is  a 
signal  to  the  15~1  tliat  we  are  ready  to  recei%'e  data. 

The  third  step  Ls  to  read  tlie  burst  data  The  ML  for  reading 
burst  data  b\ies  is  quite  simple. 

Ida  #508 
wait  bit  SdcOd 

beq  wait 

Ida  SddOO 

eor#S10 

sta  SddOO 

Ida  SdcOc 

The  first  three  instructioas  create  a  w^t  loop  until  bit  3  of 
CLA#  1  s  ICR  is  mmed  on.  Tills  indicates  tliat  a  byte  is  ready  to 
be  received.  The  label  '^v"ait"  must  be  replaced  \\  idi  an 
absolute  address  whose  value  corresponds  to  where  tlie  ML 


code  is  located  in  R.\.M.  'ITie  next  tliree  instructions  toggle  tlie 
state  of  the  ARFD  line  causing  a  data  b\te  to  be  transferred. 
The  final  instruction  reads  the  data  b\te  from  the  CIA#  1  data 
register.  To  store  this  byne,  an  indexed  sta  instruction  similar 
to: 

ldx#S3f 

SIX  SflK>0 

sta(Sia),y 

ldx#So6 

stx  sflroo 

is  normally  used  (assuming  zero  page  locations  Sfa  and  Sfb 
contain  the  low  and  high  b\'tes  of  the  data  buflFer  and  the  )' 
register  is  used  as  an  index ). 

In  order  to  use  the  I/O  and  KERNAL  routines,  the  128  must 
be  set  for  BANK  1 5.  Unfortunately,  this  also  limits  the 
maximum  size  of  a  dat:i  buffer  to  8K  b\te5  (B.W'K  0  RAM 
below  S4000  is  visiible  in  BANK  1 5  also. )  This  can  be 
overcome  by  plaj'ing  witli  tlie  memoA'  management  unit 
(MMU)  configuration  register  ( SSDO — all  B.\NKs)  to  s-witch 
between  BANK  1 5  and  BANK  0  on  the  fly,  stone  the  data,  tlien 
sv^itch  back  to  BAIVK  1 5  ag^n.  Your  machine  code  must  be  in 
an  area  visible  to  bodi  BANT<ts  (below  S4000  such  as  the 
cassette  buffer )  for  ttiis  to  \\T)rk.  The  read  routine  is  often 
contained  in  an  indexed  loop,  espcciaU)'  when  reading  bkKks 
of  data.  It  is  important  that  you  keep  track  of  the  number  cjf 
bnes  transferred  and  that  your  indexing  method  can  handle 
the  number  of  b\les  involved.  (Remember  that  the  number  of 
b)tcs  transferred  per  sector  read  Ls  1  plus  the  number  of  bytes 
per  sector.  MF.M  format  disks  may  have  sector  sizes  of  128, 
256,  512  or  1,024  bvtes  per  sector.  R\ST  LOAD  GCR  sectors 
have  254  b)tes  per  sector.  Hie  number  of  b)l:es  transferred 
for  other  burst  mode  conim;uids  depends  on  the  coniniiind. 

The  final  step  after  iill  tlata  have  been  transferred,  processed 
and  stored  is  to  ck)Se  tlie  disk  ch;innel  :ind  restore  tlie  default 
I/O.  In  .ML  this  is  done  witli  cli  luid  jsr  Sffcc.  It  is  \-er\- 
important  to  include  the  cU  instruction.  This  rc-cnablcs  tlie 
processor  interupts  which  were  turned  off  by  the  initial  sei 
instruction  in  tlie  second  step.  Tlie  jsr  instruction  calls  the 
KERNAL  CLRCHN  routine,  'lliat.  in  a  nutshell,  is  how  to  read 
data  in  burst  mcxle. 

Writing  in  burst  mode  is  only  sliglitly  more  complicated. 
There  are  sLx  basic  steps  to  folIo\A-  for  a  burst  mode  write 
of>eration.  These  ;ire  to  send  tlie  appnj]>riate  comm;uid  string 
to  access  a  burst  mode  write;  set  tlie  seri;U  port  to  Ikst  output 
mode;  send  die  datji;  set  tlie  seri:d  port  to  last  input  mode; 
read  the  burst  status  b\te  (repeat  steps  2  to  5  for  a  multi- 
sector  WTite);  and  restore  default  L'O. 

Like  other  burst  mtxle  comnKuids,  the  WRITE  SECTOR 
command  string  c;ui  Ix.'  .sent  via  eidicr  a  BASIC  PRINT# 
statement  or  a  .Ml.  JSR  C;iiROL'T  routine. 

The  second  step  is  to  eli;uige  tlie  fttst  serial  port  direction 
from  the  default  input  mode  (data  flow  from  tlie  15"'l  to  tlie 
1 28 )  to  output  mode  ( d:ita  flow  from  tlic  1 28  to  the  1 5^  1 )  and 
set  up  tlie  initi;il  clock  st;ite.  'Iliis  is  best  done  witli  a  short  .Ml. 
routine  using  tlie  nL-\\  128  KERNAL  SPIN/SPOUT  routine 
(serial  pt)rt  input/seri;il  port  output)  ;it  Sff47.  To  set  die  mtKic 
to  output  (SPOL'T),  die  routine  is  c;dled  widi  die  carr\'  flag  set 

sei 

sec 

jsr  Sff47 
lda#S40 
sta  clock 
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Hie  last  two  instructions  start  the  test  for  the  system  clock 
state  on  a liigh  \aliie.  Tlie  label  clock  refers  to  any  usable  RAM 
location  (such  as  zero  page  Sfa  to  SfiF)  whidi  Is  used  in 
subsequent  steps  as  a  temporar)'  storage  location  for  testing 
the  state  of  tlie  s>\stem  clock. 

Once  tlie  system  h:LS  been  initialized,  tlic  data  can  be  sent. 
Similar  to  the  read  protocol  discussed  abo\e,  d;>ta  is  sent  to 
the  1571  based  on  a  simple  toggle  handshake  using  tlie 
Acknowledge  and  Ready  for  Data  (AFRD)  line.  The  procedure 
is  as  follows; 

waitl  Ida  SddOO 

cmp  SddOO 

bne  wait  1 

eor  clock 

and#S40 

beq  waitl 

Ida  ( Sfe),y 

sta  SdcOc 

Ida  clock 

eor#S40 

sta  clock 
waltz  Ida  #508 

bit  SdcOd 

beq  w;ut2 

Tlie  first  six  instructions  form  a  wait  loop  until  the  serial 
port  clock  pulse  is  in  the  correct  phase.  Tlie  next  two 
instructioas  rctrcive  tlie  data  byte  from  memory  and  send  it  to 
the  serial  jxjrt.  It  Ls  assumed  tliat  die  data  buffer  address  Ls 
stored  in  zero  page  locations  Sfa  and  Sfb  in  standard  low-b>te, 
high-b>tc  format 

Tlic  next  group  of  tliree  instructions  toggles  tlie  state  of  the 
clock  comparison  regLster  Tlie  three  instructions  beginning 
with  the  "wait  2"  label  form  a  kx)p  until  tlie  interrupt  control 
register  (ICR)  of  CIA#  1  signals  tliat  the  transmission  of  tlie 
data  byte  is  complete. 

The  1571  returns  a  status  byte  after  each  sector  has  been 
written.  To  read  tliis  bvtc,  the  ftist  serial  port  must  be  set  to  tlie 
read  (SPLN)  direction  followed  by  a  ready  sigiiiil  to  die  1 571. 
This  is  done  with: 

clc 

jsr  Sff47 
bit  SdcOd 
Ida  SddOO 
ora#S10 
sta  SddOO 

The  status  b\te  can  then  be  read  with  a  standard  burst  mode 
read  as  outlined  alxivc. 

If  more  sectors  are  to  be  written,  the  whole  process  starts 
over  ag:iin  from  step  2  (set  serial  port  to  SPOUT)  until  the 
specified  number  of  sectors  has  been  written.  Once  all  sectors 
have  been  written,  tlie  final  step  is  to  restore  defeult 
inpufoutput  channels  in  the  same  manner  as  described  for 
burst  nicxle  reads  al:K)vc. 

TTiat  is  all  there  is  to  writing  in  burst  mode.  The  ML 
routines  for  both  reading  and  writing  in  burst  mode  can  be 
entered  direcdy  on  die  128  with  its  built-in  MONITOR 
commiuid  by  replacing  the  labels  witli  absolute  addresses.  Tlie 
most  con\'enient  location  for  tlie  ML  is  the  cassette  and  RS- 
232  buffers  beginning  at  SObOO  (dec  2816).  The  combined 
buffer  space  gives  you  768  b\tes  for  ML  code,  wliich  is  more 


than  adequate  for  even  the  most  complicated  burst  mode 
routines. 

Burst  Mode  and  BASIC 

ff  you  are  willing  to  forego  die  extra  speed,  MFM  disks  and 
other  hurst  mode  commands  can  be  accessed  through  BASIC 
and/or  standard  ML  KERNAL  input/output  routines.  This  is 
done  by  reading  or  writing  direcd)-  from  or  to  the  memor\'  of 
the  1571  drive.  A  number  of  important  1571  memory 
locations  are  summarized  in  Table  2. 

For  example,  to  read  the  burst  mode  status  b\ie,  the 
fbllowing  statement  can  be  used  in  a  short  BASIC  program 
(remember  INPLT#  and  GET#  cannot  be  used  in  dfrect 
mode): 

OPEN  15,8,15,"M-R" 

+  CHRS(94)  +  CHRS(0)  +  CHRS(I):GET#15,AS 
The  ASCII  value  of  AS  represents  the  burst  mode  status  b)!^ 
Bit  7  of  tlie  first  b>te  of  tlie  burst  mode  command  strijig  (after 
tlie  uO)  controls  tlie  transfer  of  data  between  tlie  computer 
and  the  1571.  If  this  bit  is  set,  then  data  transfer  occurs  %ia 
direct  memory  read  and  writes  to  the  1571  RAM  buffers.  One 
sector  worth  of  data  for  the  burst  mode  READ/VvTUTE 
SECTOR  commands  c;ui  be  tnuisfcrred  using  conventional 
BASIC  or  xML  througli  the  disk  drive  command  channel.  When 
in  burst  mode,  buffers  0  through  3  (address  S300  to  6FF)  in 
the  1 571  are  used  for  data  storage.  Four  buffers  are  allocated 
for  transfer  because  MFM  sectors  can  be  up  to  1,024  bytes 
long.  The  buffer  is  filled  starting  at  address  S300. 

To  read  an  MFM  sector  in  BASIC,  the  following  command 
sequence  can  be  used. 

1.  Open  the  command  channel:  OPEN  15,8,15 

2.  Read  sector  into  1571  buffer:  PRINT*  15,"U0"  + 

CHR  S(A)  +  CHR  S(  track*  )  +  CHR  S(sector#  )  -  CHR  S(  1 ) 
where  A  has  a  value  of  192  to  read  a  sector  on  side  0  or 
208  to  read  a  sector  on  side  1  of  an  MFM  disk. 

3.  Extract  data  from  1571  buffer  with  a  memorj'-read 
PRINT#15,"M-R"  +  CHRS(BL)  +  CHRS(BH)  +  CHRS(O) 
where  BL  is  the  low  b>te  of  the  1571  btiffer  address  (0) 
and  BH  is  the  high  b\te  (starts  at  3)  of  the  addre^. 
The  data  can  then  be  read  %\ith  a  GET#1 5AS  in  an 
indexed  loop  and  stored  in  1 28  memon'  with  a  command 
similar  to  POKE  nnnASC(AS).  Because  onl)'  256  b>tes  can 
be  read  this  way  at  one  time,  the  MR  must  be  repeated  at 
1571  buffer  addresses  of  S400,  S500  and  S600,  if  the  MFM 
sector  size  is  5 1 2  or  1 ,024  b\tes. 

4.  CLOSE  the  command  channel:  CLOSE  1 5 

The  reverse  procedure  is  used  to  write  data  on  an  MFM  disk. 

1 .  OPEN  the  command  channel:  OPEN  1 5.8, 1 5 

2.  Transfer  data  fix^m  the  128  to  the  1571  with  a  memor>-- 
write: 

PRINT*  1 5,"M-W"  +  CHR  S(BL)  +  CHR  S(BH  )  + CHR  S(  32  ); 
Then  PRINT*  15  the  data  in  an  indexed  loop.  Because  the 
M-W  command  is  limited  to  a  maximum  of  only  34  bytes 
at  a  time  (restricted  by  the  length  of  the  1571  command 
input  buffer),  tlie  M-W  must  be  repeated,  incrementing  die 
buffer  pointers,  BL  and  BH,  each  time  (as  shown  above  it  is 
easiest  to  w^ork  in  increments  of  32  rather  than  34  because 
256=  8  X  32)  until  one  sector  has  been  transferred. 

3.  Write  sector  finm  buffer  to  disk: 
PRlNT#15,"U0"-f  CHR  S(B)  +  CHRS(  track*) 
+  CHR  S(  sector* )  +  CHRS(  1 )  where 

B  has  a  s-aluc  of  194  to  write  to  side  0  or  2 10  to  write  to 
side  I  of  an  MFM  disk. 
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4.  c:lOSE  command  channel:  CLOSE  1 5 

Although  tlic  abo\c'  cxiiniples  have  been  gi%cn  in  BASIC  for 
clarin;  the  Kimc  procedure  can  be  followed  using 
equivalent  ML  KERNAL  c;ills.  By  using  simple  memory- 
read  and  memory-  write  commands  to  access  tlic  RAM  of 
the  15T1  disk  drive,  e^■en  a  novice  pmgnimmcT  am  iinkKrk 
the  secrets  of  MFM  disks  witli  easel  The  techniques 
oudined  ab<i\'e  can  Ix-  used  witli  a  64.  PlusM.  e\en  a  VIC 
20.  to  access  tlie  burst  mode  commands  on  tlie  1571. 

Program 

listing  1  is  a  short  BASIC;  prognuii  (with  ML  loader)  based 
on  tile  burst  mtxle  lAST  LCX-VD  comm;md,  which  wilt  :iJlow 
you  to  compiire  tlie  speed  for  reading  ;m)'  file  \'ou  ,s]>ccilS'  in 
1571  fast  mode.  1571  burst  mode  ;ind  1571  slow  mode 
(1541  speed).  Tr\-  a  v:iriet)-  of  files  of  different  lengtlis  (bodi 
SEQ  and  PRG ).  You  will  se-e  that  tlie  longer  tlie  lile,  tlie  greater 

listing  1 

Before  tjpin^  thcst  programs,  read  "Him'  m  Enrtrr  Priigrim."  and  "How  in  I'st.-  iIil-  Maoism- 
Kntrv'  Progrim."  The  lUSIC  prognim\  In  ihis  magazine  :ire  available  on  disli  from  l.oaditar, 
P,0 'ito  mm-,  ^l1rtupor^.  l.\  "1 1 M) Dtlir.  iai)(l-8,^  1-2694 

10  PRINT" [CLEAR] 1571  FILE  READING 

SPEED  TEST"'BASF 
20  PRINT" [DOWN] BY  M.  GARAMSZEGHY" 

: PRINT" [D0WN3] PLEASE  WAIT" 'CBLH 
30  FOR  1=2816  TO  3072:READ  X:POKE  I,X 

:NEXT'GQWG 
40  INPUT" [D0WN31 FILE  TO  READ" ; F$ : F$="0 
:"+F$: IF  RIGHTS (F$,l) <>"*"THEN 
F$=F$+"*"'KTVO 
50  INPUT" [DOWNJFILE  TYPE  [P]RG  OR  [SI 
EQ";FT$:IF  FT$<>"S"AND 
FT$<>"P"THEN  50'INIQ 
60  PRINT" [CLEAR] READING  FILE  >>  ";F$ 
: IF  FT$="P"THEN  C$=CHRS(31) 
:ELSE  C$=CHR3(159) ' JVRR 
70  PRINT" [D0WN2] 1571  FAST  READ 

:  ";"BYTES  READ : [SPACE2 ] " ; ' BCEL 
30  OPEN  15,8,15,"U0>M1" 

:REM   SET  TO  1571  (FAST)  MODE'CDEN 
90  OPEN  8,8,8,F$+","+FT$+",R" 
:SYS  2960  ,0,52:GOSUB  170 
:CLOSE  8'HCQP 
100  PRINT" [D0WN21 1571  BURST  READ 

:  "; "BYTES  READ :  [SPACE2 ] " ;  ' BCDD 
110  PRINT#15,"U0"+C$+FS 

:REM  SET  TO  BURST  FAST  LOAD ' EBMG 
120  SYS  2816,0, 52:GOSUB  170'CNNA 
130  PRINT" [D0WN2] 1541  SLOW  READ 

:  "; "BYTES  READ: [SPACE2] " ; ' BCYG 
140  PRINT#15,"U0>M0":REM   SET  TO  1541 

(SLOW)  MODE'CXBH 
150  OPEN  8,8,8,FS+","+FTS+",R" 

:SYS  2960  ,0,52:GOSUB  170'GAXJ 
160  PRINT#15,"U0>M1":DCLOSE:GOTO  40 
:REM   RESET  TO  1571  (FAST) 
MODE  '  EFI^M 
170  BR=PEEK(2  50)+PEEK(2  51)*256-13312 

:PRINT  BR'HXDL 
180  T=PEEK(3328) :S=PEEK(3329) 

:iM=PEEK(3330)  :REM  READ  CIA  CLOCK 
VALUES 'HRPS 
190  T=INT(T/16)*10+T-INT(T/16)*16 


the  speed  atl\-;iniage  of  hurst  mix.le. 

In  order  to  use  die  1 5-il  sUw-mixle  ponion,  your  test  disk 
should  lie  single-sided.  Using  a  double-sided  ilisk  in  15-tl 
mode  may  create  an  illegal  track  iuid  sector  error  if  part  of  tlie 
file  is  on  tlie  second  side.  The  Ml.  portion  is  poked  into  die 
c-.issctle  buB'er  lx.-ginning  at  R.^M  address  2816  (hex  SObOO). 

Ibr  a  l(K)k  at  how  tlie  various  steps  outlined  alxne  fit 
togcdier.  dis.s;Lssemble  die  .Ml.  using  die  built-in  .MOM  TOR 
comniiuid  on  die  12H.  ITie  burst  fitst  load  n)utinc  is  in  SOIXH) 
to  SObSO.  IxK'anon  S0bc6  to  OcO  I  contaiixs  a  subroutine  to 
reset  and  read  die  CL\  real-time  cUkIl  'Iliis  is  only  used  for 
meiLsuring  the  tnmsfer  speed,  lliis  clock  is  more  accurate  than 
BASIC'S  Tl  S  (which,  by  die  wa\\  is  :J.so  turnetl  off  during  htiiM 
mode  s<.)  can't  be  used  ;m\-wa\' ).  'llie  jsr's  to  location  SUbcti 
and  S01x;5  may  be  eliminated  if  you  do  not  wLsh  to  time  die 
transfer  Ixxation  50b90  to  S0bc5  contains  a  conventional 
read  subroutine  using  die  KHRNAL  Qj 

:REM  CONVERT  1/10  SEC  BCD  TO 
DECIMAL 'KSOV 
200  S=INT{S/16) *10+S-INT(S/16)*16 

:REM  CONVERT  SEC  BCD  TO 
DECIMAL" KOXM 
210  M  =  INT(M/16}*10-^M-INT(M/16)*16 

:REM  CONVERT  MIN  BCD  TO 

DECIMAL'KOIN 
220  SE=T/10-l■S■^M*60:REM  ELAPSED  TIME 

IN  SECONDS  FROM  CIA  CLOCK 'GRLN 
230  PRINT"READ  TIME :  [S PACE2 ]"; SE ; "SEC , 

[SPACE4JSPEED: [SPACE2] 

"INT (BR/SE) "BYTES/SEC" : RETURN ' ELGN 
240  DATA  133,250,134,251,120,44,12, 

22 0, 3 2, 66, 11, 32, 19 8, 11, 23 4, 32 'BFBL 
250  DATA  59,11,133,252,201,2,176,60, 

16  0,0,32,59,11,162,63,142'BCQL 
260  DATA  0,255,145,250,162,0,142,0, 

255,20  0,192,254,208,23  6,152, 

24'BGJN 
270  DATA  101,250,133,250,144,2,230, 

2 51, 76, 15, 11, 16 9, 8, 44, 13, 220 'BERN 
280  DATA  240,251,173,0,221,73,16,141, 

0, 22 1,17 3, 12, 220, 9 6, 8 8, 32 'BDQO 
290  DATA  229,11,96,0,160,0,32,59,11, 

1 3 3, 2 52, 3 2, 5 9, 11, 162, 63 'BAYP 
300  DATA  142,0,255,145,250,162,0,142, 

0,25 5, 200, 196, 2 52, 208, 236,1 36 'BHMI 
310  DATA  152,24,101,250,133,250,144,2, 

23 0,2 51, 76, 7 8, 11, 0,0, 173 'BDGI 
320  DATA  10,221,141,2,13,173,11,221, 

141,3,13,32,204,255,96,0'BBUJ 
330  DATA  133,250,134,251,162,8,32,198, 

11,3  2,19  8,2  55,160,0,3  2,207 'BFXL 
340  DATA  255,162,63,142,0,255,145,250, 

16 2, 0,142, 0,25 5, 32, 18 3, 2 55 'BFSM 
350  DATA  208,10,200,192,0,208,231,230, 

251, 76, 158, 11, 132, 250, 32, 204 'BHWN 
360  DATA  255,32,229,11,96,0,173,15, 

221, 41, 127, 14 1,15, 221, 17 3, 14 'BETN 
370  DATA  221,41,128,141,14,221,169,0, 

1 4 1,9, 22 1,141, 10, 2 2 1,141, 11 'BFSO 
380  DATA  221,141,8,221,96,173,8,221, 

141,0,13,17  3,9,221,141,1'BBNP 
390  DATA  13,173,10,221,141,2,13,173, 

11, 221, 141, 3, 13, 32, 204, 255, 96 'BGPR 

END 
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Continued fn^iii pg.  .jJ 

20-35  Set  iuid  read  ckx'k. 

50  IxK-atioas  of  liours,  minutes,  sccoikLs  :uid  tcntlis  of 

seconds. 

60  Start  address.  C^Iiangc  this  numlx.T  to  reiocdte  pro- 

gram. 

70  Screen  memon-  and  color  nienior\-. 

180  SYS(SA  +  104 )  starts  clock  ntnning  on  tlie  screen. 

2(K)-2-iO      Set  tlie  time. 

500-550       Hmidles  input  tor  menu  selection. 

600-650       Routine  used  to  adjust  clock. 

Before  typing  this  program,  read  "How  in  Enter  Programs"  and  "How  to  Use  [he  Magazine 
Entn'  Piogfani."  The  i.VHC  programs  in  liiii  magazine  arc  available  un  disk  from  Loadsur. 
P.O.  Box  3000"  Slire^cport.  U  "1 15(|.0(W",  1.S0I).8.M.2694. 

Hie  Clock 

DEF  FN  H(DE)=INT(DE/256) 'FMGC 
DEF  FN  L(DN)=DN-FN  H (DN ) *  256 ' GPN J 
DEF  FN  S (S)=16*INT (S/10) +S-INT 
(S/10) *10'LTVJ 
DEF  FN  R(R)={ ( (PEEK(R) AND 
112)/1.6)-l-(PEEK(R)  AND  15))AND 
127'KEYP 

DEF  FN  PM(S)=PEEK(56331)OR  128'FPQF 
DEF  FN  RP(R) =PEEK(56331)AND 
128'FPTK 

HRS=5  6331:MIN=56330:SEC=56329 
:TEN=56328 ' EKDM 

SA=49152:REM  CHANGE  SA  TO  RELOCATE 
ML'CDQK 
SM=1050:CM=54272:GOSUB  800'DSVI 

GOSUB  700:GOSUB  900 

:SYS {SA+104) 'EPCI 

GOSUB  800:GOTO  500'CHYK 

H=FN  R(HRS) : INPUT"ENTER  THE  HOUR"; 

H'DKOE 

POKE  HRS,FN  S(H)-t-FN  RP(0)'ENDD 

W$="AM":IF  FN  RP(0)  THEN 

W$="PM"'FKNL 

INPUT"AM  OR  PM";WS:IF  W$<>"AM" 

AND  W$<>"PM"  THEN  210'ILGH 

IF  W$="PM"  THEN  POKE  HRS , 

FN  PM(0) 'FLMF 

M=FN  R(MIN) : INPUT"ENTER  THE 

MINUTE";M'DKPG 

POKE  MIN,FN  S (M) 'CIKD 

S=FN  R(SEC) :INPUT"ENTER  THE 

SECOND" ;S ' DKVH 

POKE  SEC, FN  S (S) 

POKE  TEN,0'BFRB 

GOSUB  812'BDOI 

GET  K$'BCQA 

IF  K$=CHR$ (136)THEN 

IF  K$=CHR5{19)  THEN 

IF  K$=CHR$(29)  THEN 

IF  K$=CHRS(157)THEN 

IF  K$=CHR$(17)  THEN 

IF  K$=CHRS(145)THEN 

IF  K$=CHR$(133)THEN 

:GOTO  200 'GOWK 

IF  K$=CHR5(135)THEN 

IF  K$=CHR$ (134)THEN 

(PEEK(SA+92)+l)AND 


10 
15 
20 

25 


30 
35 

50 

60 

70 
180 

185 
200 

202 
209 

210 

212 

220 

222 
230 

232 
240 
490 
500 
510 
512 
515 
520 
525 
530 
532 

533 

535 


700-720       Print  pn>gnim  he;iding 

750-760       Print  S^'S  UKation  lo  re-stxirt  cIcK-k — end  program. 

800-810      Move  clock  iin)und  the  scrccn  and  color  memoi-\. 

812-850       Print  a  menu. 

900-93-1       Poke  macliine  language  progntm  into  mcmor%' 

(will  nin  ;ls  it  is  if  S.-\  =  -i9  152). 
950-980       Reltx'ate  maciiinel;uignage  program  depending 

on  SA. 
■605,901        luni  intcrnipts  off, 
985  ■Ilirn  inierrLiiiis  back  on.  n 


540 

550 
600 
605 

610 

615 
620 
625 
650 

700 

710 

720 
750 


760 
800 

805 


810 

812 
815 
820 

822 

825 


830 

HE 

840 

850 

750'EKKE 

900 

C=1050'FLSH 

901 

C=SM-H'GKTL 

C=SM-1'GLUH 

902 

C=SM-(-40'GLRM 

904 

C=SM-40'GMSI 

906 

GOSUB  700 

908 

910 

GOSUB  600'PKNK 

POKE  Sh+92, 

912 

15'KXHS 

IF  O1023  AND  C<2011  THEN  SM=C 
:GOSUB  800:C=0'IURM 
GOTO  500'BDEF 

B=B-t-l  AND  3:  IF  B=0  THEN  70'GJIF 
POKE  U,PEEK(U)AND  254'DIBI 
B(1)=29:B(2)=38:B(3)=44:L(1)=10 
:L(2)=7:L(3) =4 ' GOUN 
POKE  SA-l-29,240'CICJ 
POKE  SA+30,BCB) 'CJGF 
POKE  SA+94,L(B) 'CJBK 
CM=54271:GOSUB  800:GOTO  985'DPNK 
PRINT  CHR$ (147) :PRINT 
: PRINT  TAB (16) "THE  CLOCK" 'FKEI 
PRINT  TAB(10)"BY  BENNETT  COOKSON 
JR. ": PRINT: PRINT 'EFLL 
RETURN 'BAQD 

PRINT: PRINT" SYS", •SA+104; 
"TO  RESTART  AFTER  STOP/RESTORE" ' D 
JET 

END 'BACH 

RESTORE:DATA  8,17,23,45,51,57, 
89'CUCH 

FOR  X=l  TO  7: READ  I 
:POKE  SA+I,FN  L(SM) 
:POKE  SA+I-H,FN  H(SM)  iNEXT'MCAV 
POKE  SA  +  96,FN  L(SM-fCM) 
:POKE  SA+97,FN  H  (SM-t-CM)  '  lADO 
GOSUB  700'BDKG 

PRINT"F1  TO  SET  TIME" : PRINT ' CBMN 
PRINT"CURSOR  CONTROLS  TO  MOVE 
CLOCK" tPRINT'CBGN 

PRINT"HOME  TO  MOVE  CLOCK  TO  TOP" 
:PRINT'CBLO 

PRINT"F3  TO  CHANGE  COLOR" 
:PRINT'CBCP 

PRINT"F5  TO  ADJUST  TYPE" 
:PRINT'CBFL 

PRINT"F7  TO  END  PROGRAM" 
:PRINT'CBHL 
RETURN 'BAQH 
I=SA'BDRE 

U=56334:POKE  U,PEEK(U)AND  254 
:REM  TURN  INTERRUPTS  OFF'FIDQ 
READ  A: IF  A=256  THEN  950'EJWJ 
POKE  I,A:I  =  I-i-l:G0TO  902'ELEM 
DATA  170,  7 4, 74, 74, 74, 9, 48, 153 'BYGO 
DATA  26, 4, 200, 13 8, 4 1,15, 9, 48 'BXPP 
DATA  153,26,4,200,169,58,153, 
26'BBOJ 

DATA  4, 200, 96, 160, 0,32, 20, 192 'BYWL 

Continued  on  pg.  124 
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J.  he  programs  which  appear  in  this 
magazine  have  been  run,  tested  and 
checked  for  bugs  and  errors.  After  a 
program  is  tested,  it  is  printed  on  a 
letter  qualit\'  printer  with  some  for- 
matting changes.  This  listing  is  then 
photographed  directly  and  printed  in 
the  magazine.  Using  this  method  en- 
sures the  most  error-free  program 
listings  possible. 

Whenever  you  see  a  word  inside 
brackets,  such  as  [DOWN],  the  word 
represents  a  keystroke  or  scries  of 
keystrokes  on  the  keyboard.  The 
word  [DOWN]  would  be  entered  by 
pressing  the  cursor-down  key.  If  mul- 
tiple keystrokes  are  required,  the 
number  will  directly  follow  the  word. 
For  example,  |DOWN4|  would  mean 
to  press  the  cursor-down  key  four 
times.  If  there  are  multiple  words 
within  one  set  of  brackets,  enter  the 
keystrokes  directly  after  one  another. 
For  example,  ['dOWN,R1GHT2] 
would  mean  to  press  the  cursor-down 
key  once  and  then  the  cursor-riglit 
key  twice.  Note:  Do  not  enter  the 
commas. 

In  addition  to  these  graphic  sym- 
bols, the  keyboard  graphics  are  all 
represented  by  a  word  and  a  letter. 
The  word  is  either  SHFT  or  CMD  and 
represents  the  SHIFT  key  or  the  Com- 
modore key.  The  letter  is  one  of  the 
letters  on  the  keyboard.  Tiie  combi- 
nation [SHIFT  E]  would  he  entered  by 
holding  down  the  SHIFT  key  and 
pressing  the  E.  A  number  following 
the  letter  tells  you  how  many  times  to 
t)pe  the  letter.  For  example,  [SHFT 
A4,CMD  B3]  would  mean  to  hold  the 
SHIFT  key  and  press  the  A  four  times, 
then  hold  down  the  Commodore  key 
and  press  the  B  three  times. 

The  following  chart  tells  you  the 
keys  to  press  for  any  word  or  words 
inside  of  brackets.  Refer  to  this  chart 
whenever  you  aren't  sure  what  keys 
to  press.  Tlie  little  graphic  next  to  the 
keystrokes  shows  you  what  you  will 
see  on  the  screen. 

Syntax  Error 

This  is  by  far  the  most  common 
error  encountered  while  entering  a 
program.  Usually  (soriy  folks)  this 
means  that  you  have  typed  something 
incorrectly  on  the  line  the  syntax  er- 
ror refers  to.  If  you  get  the  message 
"?Syntax  Error  Break  In  Line  270," 
type   UST   270  and  press   RETURN. 


This  will  list  line  270  to  the  screen. 
Look  for  any  non-obvious  mistakes 
like  a  zero  in  place  of  an  O  or  vice- 
versa.  Check  for  semicolons  and  co- 
lons reversed  and  extra  or  missing 
parentheses.  AJl  of  these  things  will 
cause  a  syntax  error. 

Tliere  is  only  one  time  a  syntax 
error  will  tell  you  the  wrong  line  to 
look  at.  If  the  line  the  syntiix  error 
refers  to  has  a  function  call  (e.g.,  FN 
A(3)),  the  syntax  error  may  be  in  the 
line  that  defines  the  function,  rather 
than  the  line  named  in  the  error  mes- 
sage. Look  for  a  line  near  the  begin- 
ning of  the  program  (usually)  that  has 
DEF  FN  A(X)  in  it  with  an  equation 
following  it.  Look  for  a  typo  in  the 
equation  part  of  this  definition. 

Illegal  Quantity  Error 

This  is  another  common  error  mes- 
sage. This  can  also  be  caused  by  a 
tj'ping  error,  but  it  is  a  little  harder  to 
find.  Once  again,  list  the  line  number 
that  the  error  message  refers  to. 
There  is  probably  a  poke  statement 
on  this  line.  If  there  is,  then  the  error 
is  referring  to  what  is  trying  to  be 
poked.  A  number  must  be  in  the 
range  of  zero  to  255  to  be  poke- able. 
For  example,  the  statement  POKE 
1024,260  would  produce  an  illegal 
quantity  error  because  260  is  greater 
than  255. 

Most  often,  the  value  being  poked 
is  a  variable  (A,X...).  This  error  is  tell- 
ing you  that  this  variable  is  out  of 
range.  If  the  variable  is  being  read 
from  data  statements,  then  the  prob- 


lem is  somewhere  in  the  data  state- 
ment.s.  (;heck  the  data  statements  for 
missing  commas  or  other  typos. 

If  the  variable  is  not  coming  from 
data  statements,  then  the  problem 
will  be  a  little  harder  to  find.  Check 
each  line  that  contains  the  variable 
for  typing  mistakes. 

Out  Of  Data  Error 

Tills  error  message  is  always  relat- 
ed to  the  data  statements  in  a  pro- 
gram. If  this  error  occurs,  it  means 
that  the  program  has  run  out  of  data 
items  before  it  was  supposed  to.  It  is 
usually  caused  by  a  problem  or  typo 
in  the  data  statements.  Check  first  to 
sec  if  you  have  left  out  a  whole  line  of 
data.  Next,  check  for  missing  commas 
between  numbers.  Reading  data  from 
a  page  of  a  magazine  can  be  a  strain 
on  the  brain,  so  use  a  ruler  or  a  piece 
of  paper  or  anything  else  to  help  you 
keep  track  of  where  you  are  as  you 
enter  the  data. 

Other  Problems 

It  is  important  to  remember  that 
the  64  and  the  PET/CBM  computers 
will  only  accept  a  line  up  to  80  char- 
acters long.  The  VIC  20  will  accept  a 
line  up  to  88  characters  long  and  the 
128  a  line  up  to  160  characters  long. 
Sometimes  you  will  find  a  line  in  a 
program  that  runs  o^'er  this  number 
of  characters.  This  is  not  a  mistake  in 
the  listing.  Sometimes  programmers 
get  so  carried  away  crunching  pro- 
grams that  they  use  abbreviated  com- 
mands to  get  more  than  the  standard 
number  of  characters  on  one  line. 


H-|KOME]"  =  UNSHimDCLR/HOME   ^   ■[PL'RPLEI" -CONTROLS 

Q  ICLEARI-^SHIFTEDCLR/HOME         Q    IGREEW  =  CONTROL  6 
"  ™    IBLUEI'^^CONTROLT 

H  ■•|YELLOWl-  =  CONTROL  a 


X  SHIFTED  CLR/HOME 
[l|  ■  |D0WN|"=CURS0RDOWN 

n  ■■|UPi-  =  CURSOR  UP 
11   ■|RIGHTr=CURSORR!GHT 

n  -'ILEFTl" -CURSOR  LEFT 
R    |RVS1-=CONTROL9 

B  ■■[RVOFFr  =  CONTROL0 
■I  ■|BLACKr=  CONTROL  1 

[1  •■|WHITE1"=CONTROL2 
H  -[REDr  =  CONTROL  3 

ri  ■■|CYANr=CONTR0L'l 


s 


n    [ORANGEr' -COMMODORE  1 

jj  "iBROWNi" -COMMODORE  2 
r3  '|L  RED)    -COMMODORE  3 

R  ■|GRAY11'=  COMMODORE  4 
^  ■|GRAYZ1-  =  C0MM0D0RE  5 

I]  -'IL  GREEN]'  -COMMODORE  6 
n    IL  BLUEr  "COMMODORE  7 

S  ■|GRAY3r' "COMMODORE  8 


y    [Fll;-"?! 

■'[F2r'=F2 

g-|F3r'  =  F3 
g  ■|F4r'  =  F4 

H   ■|F5|'=F5 
Fj    iFBI'-Ffi 

||'1F7r-  =  F7 
[1  ■lF8r-  =  FB 

^  ■lPOUNDl-  =  ENGLISH 
POUND 
0   -ISHFT  "I"  =P[  SYMBOL 


■=  UP  ARROW 


GRAPHIC  SYMBOLS  WILL  BE  REPRESENTED  AS  EITF^.R  THE  LETTERS 
SHFT  (SHIFT)  AND  A  KEY  ("iSHFT  Q.SHFT  J, SHFT  D.SriFT  S)")  OR  THE 
LETTERS  CMDR  (COMMODORE)  AND  A  KEY  C'lCMDR  Q.CMDR 
G.COMDR  Y.CMDR  H|"),  IF  A  SYMBOL  IS  REPEATED,  THE  NUMBER  OF 
REPITITIONS  WILL  BE  DIRECTLY  AFTER  THE  KEY  AND  BEFORE  THE 
COMMA  CISPACES.SHFT  S4,CMDR  M21"), 
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You  can  enter  these  lines  by  abbrevi- 
ating the  commands  when  you  enter 
the  hne.  The  abbreviations  for  BASIC 
commands  arc  in  your  user  guide. 

If  you  type  a  hne  that  is  longer  than 
the  acceptable  number  of  characters, 
the  computer  will  act  as  if  ever>'thing 
is  ok,  until  you  press  RETURiN.  Then, 
a  syntax  error  will  be  displayed 
(without  a  line  number).  Many  people 
write  that  the  computer  gives  them  a 
syntax  error  when  they  t)'pe  the  line, 
or  that  the  computer  refuses  to  ac- 
cept a  line.  Both  of  these  problems 
are  results  of  typing  a  line  that  has  too 
many  characters. 

The  Program  Won't  Run!! 

This  is  the  hardest  of  problems  to 
resolve;  no  error  message  is  dis- 
played, but  the  program  just  doesn't 
run.  This  can  be  caused  by  many 
small  mistakes  typing  a  program  in. 
First  check  that  the  program  was 
written  for  the  computer  you  are  us- 
ing. Check  to  see  if  you  have  left  out 
any  lines  of  the  program.  Check  each 


line  of  the  program  for  typos  or  miss- 
ing parts.  Finally,  press  tlie  RUN/STOP 
key  while  the  program  is  "running." 
Write  down  the  line  the  program 
broke  at  and  try  to  follow  the  pro- 
gram backwards  from  this  point,  look- 
ing for  problems. 

If  AU  Else  FaUs 

You've  come  to  the  end  of  )'our 
rope.  You  can't  get  the  program  to 
run  and  you  can't  find  any  errors  in 
your  typing.  Vtliat  do  you  do?  As  al- 
ways, we  suggest  that  you  tr\'  a  local 
user  group  for  help.  In  a  group  of 
even  just  a  dozen  members,  someone 
is  bound  to  ha\'c  tv'pcd  in  the  same 
program.  The  user  group  may  also 
have  tiie  program  on  a  library  disk 
and  be  willing  to  make  a  copy  for  you. 
For  S9.95  per  issue,  you  can  also  get 
all  the  BASIC  programs  in  each  issue, 
as  well,  from  Loadstar,  P.O.  Box 
30007,  Shreveport,  LA  71 130-0007. 

If  you  do  get  a  working  copy,  be 
sure  to  compare  it  to  your  own  ver- 
sion so  that  you  can  learn  from  your 


errors  and  increase  your  understand- 
ing of  programming. 

If  you   live  in  the  country,  don't 
have  a  local  user  group,  or  you  simply 
can't  get  any  help,  write  to  us.  If  you 
do  write  to  us,  include  the  following 
information  about  the  program  you 
are  having  problems  with: 
The  name  of  the  program 
The  issue  of  the  magazine  it  was  in 
The  computer  you  are  using 
Any  error  messages  and  the  line 

numbers 
Anything  displayed  on  the  screen 
A  printout  of  your  listing  (if 

possible) 
All  of  this  information  is  helpfiil  in 
answering  your  questions  about  why 
a  program  doesn't  work.  A  letter  that 
simply  states  "I  get  an  error  in  line 
250  whenever  I  run  the  program" 
doesn't  give  us  much  to  go  on.  Send 
your  questions  to: 

Commodore  Magazines 

1200  Wilson  Drive 
Westchester,  PA  19380 
ATTN:  Program  Problem         Q 


HOW  TO  USE  THE  MAGAZINE  ENTRY  PROGRAMS 


A  he  Magazine  Entr}'  Programs  on 
the  next  pages  are  two  BASIC  ma- 
chine language  programs  that  will  as- 
sist you  in  entering  the  programs  in 
this  magazine  correctly.  Tlierc  arc 
versions  for  both  the  Commodore  64 
and  the  Commodore  128.  Once  the 
program  is  in  place,  it  works  its  magic 
without  you  having  to  do  anything 
else.  The  program  will  not  let  you 
enter  a  line  if  there  is  a  t)-ping  mistake 
on  it,  and  better  yet,  it  identifies  the 
kind  of  error  for  you. 

Getting  Started 

Type  in  the  iMagazine  Entry  Pro- 
gram carefully  and  save  it  as  you  go 
along  (just  in  case).  Once  the  whole 
program  is  tjped  in,  save  it  again  on 
tape  or  disk.  Now  RUN  the  program. 
The  word  POKING  will  appear  on  the 
top  of  the  screen  with  a  number.  The 
number  will  increment  from  49152 
up  to  49900  (4864-5545  on  the  128) 
and  just  lets  you  know  that  the  pro- 
gram is  running.  If  everything  is  ok, 
the  program  will  finish  running  and 
say  DONE.  Tlien  type  NEW.  If  there  is 
a  problem  with  the  data  statements, 


the  program  will  tell  you  where  to 
find  the  problem.  Otherwise  the  pro- 
gram will  say  "mistake  in  data  state- 
ments." Check  to  sec  if  commas  are 
missing,  or  if  you  have  used  periods 
instead  of  commas.  Also  check  the 
individual  data  items. 

Once  the  program  has  run,  it  is  in 
memory  ready  to  go.  To  activate  the 
program  t)pc'sYS49152  (SYS4864  on 
the  128),  and  press  RETURN.  You  are 
now  ready  to  enter  the  programs 
from  the  magazine.  To  disable  the  En- 
try' Program,  just  type  KILL  (  RETURN ) 
on  the  64  or  SYS4867  on  the  128. 

The  checksums  for  each  line  are 
the  same  for  both  the  64  and  1 28,  so 
you  can  enter  your  64  programs  on 
the  128  if  you'd  like. 

Typing  the  Programs 

All  the  BASIC  program  listings  in 
this  magazine  that  are  for  the  64  or 
128  have  an  apostrophe  followed  by 
four  letters  at  the  end  of  the  line  (e.g., 
'ACDF).  If  you  plan  to  use  the  Maga- 
zine Entry  Program  to  enter  your  pro- 
grams, the  apostrophe  and  letters 
should  be  entered  along  with  the 


rest  of  the  line.  This  is  a  checksum 
that  the  Magazine  Entry  Program  uses. 

Enter  the  line  and  the  letters  at  the 
end  and  then  press  RETURN,  just  as 
you  normally  would. 

If  the  line  is  entered  correctly,  a 
bell  is  sounded  and  the  line  is  entered 
into  the  computer's  memor)'  (with- 
out the  characters  at  the  end). 

Lf  a  mistake  was  made  while  enter- 
ing the  line,  a  noise  is  sounded  and  an 
error  message  is  displayed.  Read  the 
error  message,  then  press  any  key  to 
erase  the  message  and  correct  the 
line. 

IMPORTANT 

If  the  Magazine  Entr\'  Program  sees 
a  mistake  on  a  line,  it  does  not  enter 
that  line  into  memory.  This  makes  it 
impossible  to  enter  a  line  incorrectly. 

Error  Messages  and 
What  They  Mean 

There  are  five  error  messages  that 
the  Magazine  Entry  Program  uses. 
Here  they  are,  along  with  what  they 
mean  and  how  to  fix  them. 

Continued  next  page 
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HOW  TO  USE  THE  MAGAZINE  ENTRY  PROGRAMS 


NO  CHECKSUM:  This  means  that 
you  forgot  to  enter  the  apostrophe 
and  the  four  letters  at  the  end  of  the 
line.  Move  the  cursor  to  the  end  of 
the  line  you  just  tj'ped  and  enter  the 
checksum. 

QUOTE;  This  means  that  you  for- 
got (or  added)  a  quote  mark  some- 
where in  Che  line.  Check  the  line  in 
the  magazine  and  correct  the  quote. 

KEYWORD:  This  means  that  you 
have  either  forgotten  a  command  or 
spelled  one  of  the  BASIC  ke^'^'ords 
(GOTO,  PRINT.  . )  incorrectly.  Check 


the  line  in  the  magazine  again  and 
check  your  spelling. 

#  OF  CHARACTERS:  This  means 
that  you  have  either  entered  extra 
characters  or  missed  some  characters. 
Check  the  line  in  the  magazine  again. 
This  error  message  will  also  occur  if 
you  misspell  a  BASIC  command,  but 
create  another  kcj'word  in  doing  so. 
For  example,  if  you  misspell  PRINT  as 
FRONT,  the  64  sees  the  letter  P  and 
R,  the  BASIC  keyword  ON  and  then 
the  letter  T.  Because  it  sees  Che 
keyword  ON,  it  thinks  you've  got  too 


many  characters,  instead  of  a  simple 
misspelling.  Check  spelling  of  BASIC 
commands  if  you  can't  find  anything 
else  wrong. 

UNIDENTfflED:  This  means  that 
you  have  either  made  a  simple  spell- 
ing error,  you  t\'pcd  the  wrong  line 
number,  or  you  t^'ped  the  checksum 
incorrectly.  Spelling  errors  could  be 
the  wrong  number  of  spaces  inside 
quotes,  a  variable  spelled  wrong,  or  a 
word  misspelled.  Check  the  line  in 
the  magazine  again  and  correct  the 
mistake.  n 
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The  Magazine  Entn'  Programs  aic  available  on  disk,  along  with 
programs  in  this  magazine,  for  S9.95.  To  order,  contact  Loadstar 

10  PRINT" [CLEAR] POKING  -"; 

P=49152  :REM  $C000   (END  AT 
49900/SC2EC) 

READ  A$:IF  A5="END"THEN  110 
L=ASC(MID$ (A9,2,l) ) 
H  =  ASC(MID$ (AS,1,1)  ) 
L=L-48:IF  L>9  THEN  L=L-7 
H=H-48:IF  H>9  THEN  H=H-7 
PRINT" [H0ME,RIGHTI2] "P; 
IF  H>15  OR  L>15  THEN  PRINT 
:PRINT"DATA  ERROR  IN  LINE"; 
1000+1 NT ((P-49152)/8) :STOP 
B  =  H*16-i-L:P0KE  P  ,  B  :  T  =  T+B:  P  =  P 
:GOTO  30 

IF  T<>862a0  THEN  PRINT 
: PRINT"MISTAKE  IN  DATA  — > 
DATA  STATEMENTS": END 
PRINT"DONE" :END 
DATA  4C, 1F,C0, 00 ,00 ,00, 00, 
DATA  00, 00, 00, 00, 00, 0D, 00, 
DATA  C1,27,C1,2F,C1,3F,C1, 
DATA  C1,EA,EA,EA,4C,54 ,C0, 
DATA  0  5,BD,19,C0,95,73,CA, 
DATA  Fa , 60,60,A0,03,B9,  00, 
DATA  D9,04,C1,D0,F5,88,10, 
DATA  A0,05,B9,A2,E3,99,73, 
DATA  88,10,F7,A9,00,8D,18, 
DATA  4C,EF,C0,E6,7A,D0,02, 
DATA  7B,4C,79,00,A5,9D,F0, 
DATA  A5,7A,C9,FF,D0,ED,A5, 
DATA  C9,01,D0,E7,20,2B,C0, 
DATA  00, 02, 20, 74, C0, 90, DC, 
DATA  00,4C,A9,C1,C9,30,30, 
DATA  C9,3A,10,02,38,60,18, 
DATA  C8,B1,7A,C9, 20,00,03, 
DATA  D0,F7,B1,7A,60,18,C8, 
DATA  7A,F0,37,C9,22,F0,F5, 
DATA  03,C0,8D,03,C0,AD,04, 
DATA  69,00,8D,04,C0,4C,8E, 
DATA  18 ,6D,05,C0,8D,05,C0, 
DATA  03,EE,06,C0,EE,09,C0, 
DATA  CE,C1,I8,6D,08,C0,8D, 
DATA  C0,90,03,EE,07,C0,EE, 


20 

30 
40 
50 
60 
70 
80 
90 


100 


110 


120 

1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1313 
1014 
1315 
1016 
1317 
1018 
1019 
1020 
1021 
1022 
1023 
1024 


the  other 

1025 

DATA 

C0 

,60 

,0A 

,A8 

,09 

,0F 

,C0 

,85 

at  1-800-831-2694. 

1026 

DATA 

FB 

,B9 

,10 

,C0 

,85 

,FC 

,A0 

,00 

1027 

DATA 

A9 

,12 

,20 

,D2 

,FF 

,B1 

,FB 

,F0 

1028 

DATA 

06 

,20 

,D2 

,FF 

,C8 

,D0 

,F6 

,20 

1029 

DATA 

BC 

,C2 

,20 

,E4 

,FF 

,F0 

,FB 

,A0 

1030 

DATA 

18 

,B9 

,08 

,C1 

,20 

,D2 

,FF 

,88 

1031 

DATA 

10 

rF7 

,68 

,68 

,A9 

,00 

,8D 

,00 

1032 

DATA 

02 

,4C 

,74 

,A4 

,4B 

,49 

,4C 

,4C 

10  33 

DATA 

91 

r91 

,0D 

,20 

,20 

,20 

,20 

,20 

1034 

DATA 

20 

,20 

,20 

,20 

,20 

20 

,20 

,20 

1035 

DATA 

20 

,20 

20 

,20 

,20 

20 

,20 

,91 

1036 

DATA 

0D 

,51 

55 

,4F 

,54 

45 

,00 

,43 

1037 

DATA 

45 

,59 

57 

,4F 

,52 

44 

,00 

,23 

1038 

DATA 

20 

,4F 

46 

,20 

,43 

48 

,41 

,52 

+  1 

1039 

DATA 

41 

,43 

54 

,45 

,52 

53 

,00 

55 

1040 

DATA 

4E 

,49 

4  4 

,45 

,4E 

54 

,49 

,46 

1041 

DATA 

49 

,45 

44 

,00 

4E 

4F 

,20 

43 

CHECK 

1042 

DATA 

48 

,45 

43 

,4B 

,53 

55 

,4D 

,00 

1043 

DATA 

C8 

,B1 

7A 

,D0 

,FB 

84 

,FD 

C0 

1044 

DATA 

09 

,10 

03 

,4C 

84 

CI 

,88 

88 

00 

1045 

DATA 

88 

,88 

88 

,B1 

7A 

C9 

,27 

D0 

21 

1046 

DATA 

13 

A9 

00 

,91 

,7A 

C8 

,A2 

00 

4C 

1047 

DATA 

Bl 

7A 

9D 

3C 

03 

C8 

,E8 

E0 

A2 

1048 

DATA 

04 

,D0 

F5 

,60 

A9 

04 

,4C 

,CA 

10 

1049 

DATA 

C0 

A0 

00 

,B9 

00 

02 

99 

40 

02 

1050 

DATA 

03 

F0 

F0 

C8 

D0 

F5 

A0 

00 

F5 

1051 

DATA 

B9 

40 

03 

F0 

E6, 

99 

00 

02 

00 

1052 

DATA 

C8 

D0 

F5 

20 

96, 

CI 

4C 

12 

D4 

1053 

DATA 

C2 

A0 

09 

A9 

00, 

99 

03 

C0 

E6 

1054 

DATA 

8D 

3C 

03 

88 

10, 

F7 

,A9 

80 

F3 

1055 

DATA 

85 

02 

A0 

00 

20, 

58 

CI 

20 

7B 

1056 

DATA 

89, 

CI 

2  0 

ED 

CI, 

E6 

7A 

E6 

AD 

1057 

DATA 

7B 

20 

7C 

A5 

A0, 

00 

20 

80 

A0 

1058 

DATA 

C0 

F0 

D0 

24 

02, 

F0 

06 

4C 

06 

1059 

DATA 

A8 

C0 

4C 

CE 

CI, 

C9 

22 

D0 

60 

1060 

DATA 

06 

20, 

8D 

C0 

4C, 

CE 

CI 

20 

C8 

1061 

DATA 

BA 

C0, 

4C 

CE 

CI, 

A0 

00, 

B9 

Bl 

1062 

DATA 

00 

02, 

20 

74 

C0, 

C8 

90 

0A 

6D 

1063 

DATA 

18, 

6D, 

07, 

C0 

8D, 

07 

C0 

4C 

C0 

1064 

DATA 

EF 

CI, 

88, 

A2 

00, 

B9 

00 

02 

C0 

1065 

DATA 

9D 

00, 

02, 

F0 

04, 

E8 

C8, 

D0 

90 

1066 

DATA 

F4 

60, 

18 

AD 

09, 

C0 

69 

41 

4C 

1067 

DATA 

8D 

09, 

C0 

38 

AD, 

0A 

C0 

E9 

08 

1068 

DATA 

19, 

90, 

06, 

8D 

0A, 

C0 

4C 

IC 

0A 

1069 

DATA 

C2, 

AD, 

0A, 

C0 

69, 

41, 

8D, 

0A 

1 20  APRIL  1 987 


1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


C0,AD 
AD, 04 
C0,68 
AD,0C 
C0,38 
C0,4C 
41,80 
19,90 
C2,AD 
C0,A0 
03, D0 
30,03 


,03,C0,6D 
,C0,6D,06 
,6D,08 ,C0 
,C0,6D,07 
,E9,19,90 
,52,C2,AD 
,0C,C0,AD 
,06,8D,0B 
,0B,C0,69 
,01, AD, 09 
,20,C8,AD 
,D0,17,C8 


,05,C0,48 
,C0,8D,0C 
,8D,0B,C0 
,C0,8D,0C 
,06,8D,0C 
,0C,C0,69 
,0B,C0,E9 
,C0,4C,67 
,41,8D,0B 
,C0,CD,3C 
,0A,C0,CD 
,AD,0B,C0 


1082  DATA  CD,3E,03,D0,0E,AD,0C,C0 

1083  DATA  CD,3F,03,D0,06,20,CC,C2 

1084  DATA  4C,4B,C0,98,48,68,4C,CA 

1085  DATA  C0,A9,20,8D,00,D4,8D,01 

1086  DATA  D4,A9,09,8D,05,D4,A9,0F 

1087  DATA  8D,13,D4,60,20,A9,C2,A9 

1088  DATA  81,20,DF,C2,A9,80,20,DF 

1089  DATA  C2,4C,D9,C2,20,A9,C2,A9 

1090  DATA  11,20,DF,C2,A9,10,20,DF 

1091  DATA  C2, A9, 00, 8D, 04,04,60,80 

1092  DATA  04,D4,A2,70,A0,00,88,D0 

1093  DATA  FD,CA,D0,FA,60,END 
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END 


20 

30 
80 
100 

110 


120 
200 


5  TRAP  200  ■  1036 

10  PRINT" [CLEAR] POKING  -";  1037 

P=4364  :REM  $1300   (END  AT  1038 

5545/$15A9)  1039 

READ  A5:IF  A$="END"THEN  110    '  1040 

PRINT" [HOME, RIGHT12] "P;  1041 

B=DEC(A$) :POKE  P,B :T=T+B : P=P+1  1042 

:GOTO  30  1043 

IF  T059311  THEN  PRINT  1044 

:PRINT"MISTAKE  IN  DATA  -->  CHECK  1045 

DATA  STATEMENTS" :END  1046 

PRINT"OONE":END  1047 

PRINT:PRINT"DATA  ERROR  IN  LINE";  1048 

1000+INT( (P-4864)/8) :END  1049 

1000  DATA  4C,1E,13,4C,3A,13,00,00  1050 

1001  DATA  8E, 00, F7, 00, 42, 41, 51, 57  1051 

1002  DATA  0D, 00, 00, 43, 08, 14, 0E, 14  1052 

1003  DATA  16, 14, 26, 14, 33, 14, A9, 00  1053 

1004  DATA  8D, 00, FF, AD, 04, 03, 80, 12  1054 

1005  DATA  13, AD, 05, 03, 8D, 13, 13, A2  1055 

1006  DATA  4A,A0,13,3E,04,03,8C,05  1056 

1007  DATA  03, 60, AD, 12, 13, 80,04,03  1057 

1008  DATA  AD, 13, 13, 80,05,03, 60, 6C  1058 

1009  DATA  12,13,A5,7F,D0,F9,AD,00  1059 

1010  DATA  02,20,58, 13, 90, F1,A0, 00  1060 

1011  DATA  4C,6F,14,C9,30,30,06,C9  1061 

1012  DATA  3A, 10, 02, 38, 60, 18,60,08  1062 

1013  DATA  B1,3D,C9,20,D0,03,C8,D0  1063 

1014  DATA  F7,B1,3D,60,18,C8,B1,3O  1064 

1015  DATA  F0,35,C9,22,F0,F5,6O,06  1065 

1016  DATA  13, 80, 06, 13, AD, 07, 13, 69  1066 

1017  DATA  00,80,07,13,40,75,13,18  1067 

1018  DATA  60,08,13, 80,08,13, 90, 03  1068 

1019  DATA  EE,09,13,EE,0C,13,60,18  1069 

1020  DATA  6O,0B,13,8D,0B,13,90,03  1070 

1021  DATA  EE,0A,13,EE,0D,13,60,0A  1071 

1022  DATA  A8,B9,14,13,85,FB,B9,15  1072 

1023  DATA  13,85,FC,A0,00,8O,00,FF  1073 

1024  DATA  A9,12,20,D2,FF,B1,FB,F0  1074 

1025  DATA  06,20,D2,FF,C8,O0,F6,20  1075 

1026  DATA  79,15,20,A3,15,20,E4,FF  1076 

1027  DATA  F0,FB,A0,1B,B9,EF,13,20  1077 

1028  DATA  O2,FF,88,10,F7,68,68,A9  1078 

1029  DATA  00, 80,00,02, 40, B7, 40, 91  1079 

1030  DATA  91,00,20,20,20,20,20,20  1080 

1031  DATA  20,20,20,20,20,20,20,20  1081 

1032  DATA  20,20,20,20,20,20,91,00  1082 

1033  DATA  51, 55, 4F, 54, 45, 00,48,45  1083 

1034  DATA  59, 57, 4F, 52, 44, 00, 23, 20  1084 

1035  DATA  4F, 46, 20, 43, 48, 41, 52, 41  1085 


DATA 

43 

54 

4  5 

52 

53 

00 

55, 

DATA 

49 

44 

45 

4E 

54 

49 

46, 

DATA 

45 

44 

00 

4E 

4F 

20 

43, 

DATA 

45 

43 

4B 

53 

55 

4D 

00, 

DATA 

Bl, 

3D, 

D0, 

FB, 

00, 

06, 

10, 

DATA 

4C 

69 

14 

88 

88 

88 

88, 

DATA 

Bl 

3D 

09 

,27 

00 

13 

A9, 

DATA 

91 

3D 

08 

,A2 

,00 

Bl 

30, 

DATA 

00 

0B 

,08 

,E8 

,E0 

04 

00, 

DATA 

60 

4C 

,50 

,15 

,4C 

05 

14, 

DATA 

09 

,A9 

,00 

,99 

,06 

13 

80, 

DATA 

0B 

88 

,10 

,F7 

,A9 

80 

,85, 

DATA 

A0 

,00 

,20 

,3F 

,14 

20 

,AE, 

DATA 

20 

0D 

,43 

,84 

,FA 

A0 

FF, 

DATA 

67 

13 

,F0 

,08 

,24 

FO 

F0, 

DATA 

20 

8F 

,13 

,40 

,8F 

14 

,09, 

DATA 

00 

,06 

,20 

,74 

,13 

40 

,8F, 

DATA 

20 

,9F 

,13 

,40 

,8F 

14 

,A0, 

DATA 

B9 

,00 

,02 

,20 

,5B 

13 

,08, 

DATA 

0A 

,18 

,6D 

,  0A 

,13 

8D 

0A, 

DATA 

4C 

,80 

,14 

,88 

,60 

18 

,AD, 

DATA 

13 

,69 

,41 

,80 

,00 

,13 

,38, 

DATA 

00 

rl3 

,E9 

,19 

,90 

06 

,8D, 

DATA 

13 

,40 

,CF 

,14 

,AD 

00 

,13, 

DATA 

41 

,80 

,00 

,13 

,A0 

06 

,13, 

DATA 

08 

,13 

,48 

,A0 

,07 

13 

,6D, 

DATA 

13 

,80 

,0F 

,13 

,68 

6D 

,0B, 

DATA 

80 

,0E 

,13 

,AD 

0F 

,13 

,60, 

DATA 

13 

,8D 

,0F 

,13 

,38 

,E9 

,19, 

DATA 

06 

,8D 

,0F 

,13 

,40 

05 

,15, 

DATA 

0F 

,13 

,69 

,41 

,80 

,0F 

,13, 

DATA 

0E 

,13 

,E9 

,19 

,90 

06 

,80, 

DATA 

13 

,40 

,1A 

,15 

,AD 

,0E 

,13, 

DATA 

41 

,8D 

,0E 

,13 

,A0 

,01 

,AD, 

DATA 

13 

,CD 

,00 

,0B 

,00 

20 

,C8, 

DATA 

00 

,13 

,C0 

,01 

0B 

00 

17, 

DATA 

AD 

,0E 

,13 

,00 

02 

0B 

D0, 

DATA 

AD 

0F 

,13 

00 

03 

0B 

00, 

DATA 

20 

89 

,15 

,A4 

,FA 

60 

98, 

DATA 

68 

4C 

AF 

13 

A9 

04 

40, 

DATA 

13 

A9 

00 

80 

00 

FF 

A9, 

DATA 

80 

00 

D4 

80 

01 

04 

A9, 

DATA 

80 

05 

D4 

A9 

0F 

80 

18, 

DATA 

60 

20 

61. 

15 

A9 

81, 

20, 

DATA 

15 

A9 

80 

20, 

90 

15, 

40, 

DATA 

15 

20 

61. 

15, 

A9 

11, 

20, 

DATA 

15 

A9 

10, 

20, 

9C 

15, 

A9, 

DATA 

80 

04 

D4. 

60, 

80, 

04, 

D4, 

DATA 

70 

A0, 

00, 

88, 

00, 

FD, 

CA, 

DATA 

FA 

60, 

END 

4E 

49 

48 

08 

33 

88 

00 

90 

F5 

A0 

00 

FD 

14 

20 

06 

22 

14 

00 

90 

13 

00 

AD 

00 

69 

60 

09 

13 

0A 

90 

AD 

AD 

0E 

69 

00 

AD 

08 

0E 

06 

48 

AF 

20 

09 

04 

90 

96 

90 

00 

A2 

00 


CEHD 
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Group  Cocrdinau)r,  it  Commodoft  liuiincM  Machines.  l2Gi)  Wilson  Dnvc,  Wc^l  Chester.  PA  lyiSO 
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interests,  or  if  you  need  heJp  getting  started  with  your  computcf,  conuci  the  group  neaf  you 


Al.A«AKA 

Btrn^ingtiani  Ccmmodare  Ctub 
P  0  5o)i  59664 
fobTotum 

VoU^  Commodor*  Ukt  Gro^jp 
9i5  W*ir  ThTj  Uif  Wcods  SVC 

Sw*li  CuTimaKwr  UHni  Gioup 

CluSHiC  Biaeiewril 
HunuvUJe 

Coinpuiwn  CofTSpuW  Cluti 

lOlIBShAdlcn:  Pf^a 

Biyan  Jo[d>r. 
Mantganmy 

MACKS 

CO  BnZIOm 

CTwiln  BusmB 
Sfo;ubQCQ 

ALASKA 

An^lTKapf  C-ccTTnodof*  Uwi 

PC  E;.  ]C46!i 

TifvL  &CW  Ji 
ALBtRtA 
CANADA 


tiinioa  Cacnpuwr  Guti 


90*W 


oCu 


'HiAinu  A  MiHinn 

163:1  N  C^ilakl  Av* 
Rjchiid  pDaiee 

DJaKackvE 
Rdiita  #1.  a«t  M 
PauI  n  MAcnuli 

■nijr.dw  Mounuir  Commcdott 

PO  Bqk  !7» 
Mi-c^ne;  Mi-g'itdgir 

FO  Baj(32M8 
G«ngi  Pope 


Mwxh  IitUa  Rorrh 
RiVftT  Cut  Cotnmaiiait 

PO  p<wcse 

0  OotOO^t  V0O«  Jr 

C«P!»3d«6  Corepuf*!  dub  c! 


JuBrLdtfucaCMUHii  GroLip 
«2  Tipton  Rd 
Brvt/i  Wiiiouon 

cAuroiunA 

Aijturn  CaniffKKKi*  ^nfbpulei 

Pa:  Suub 

Coimmodoo  Connection 
PO  &DK2?i:06 
Pj=r-.aid  MojOvy 

□lAtJa  ViL^y  OsTttnti&Jt*  Use; 

pa  ata27I5^ 
Riclujd  JeciMR 

FiiEetion 
KIXA  Commodoii  Campuur 

aub 

PO  Bh»3]10 
EdCrvutM 
Hununguin  5«*cti 
Wek  QiiAQC  Couny 
Ccm.-nodM*yG 

Miliar  Btovwn 
las  ChDs 
Sail  t^ii  Obif  [N  OomrDHlQif' 
Chib 

1766  Kj  mil  SuirtI 
Joan  fUiMh»il 


Fold  AfiOip*c«  Corrmudorc 

F«a  Rd  G«x  A 
MftLi  Stop  #2.20e 

J<H«ph  P    pA«fif4 

Oceansidw 
DcMna-M 
10M  PkWM  Way 
SamDiooki 

Sunptr  U""*  of  Comfm-.ws 
CombiTLin 
301  Varomn  Drive 
WavTM  Waichd 
Sacraman^o 
StanTTnanto  Cammodote  Uwi» 

Seoo  BafMo([]  3> 
LanrvH4fuMtg 

S«/i  Dmq?  ConwTiOiiCf*  Us«» 

Otwp 

PO  BotBe&^l 

itn«<  CuT.ptoU 

14^; in  CoTfTodaii  CenpuiH 

eeS  Ui  Cotindu  Rd 
Omar  E  Johntcfi 
$a;^i4  BaibV« 
Suu  [t4ibara  CcntfflMtoefe 
UUwiOraup 
4U0VWVUU3U 
VUttur  Hiui 

Sioctnon 
StioclrtOfi  C^mpnodae  Usei 

399CtiHivaDt 

RitaMcCviP 
StuduCity 

SouifiainCA  M  Ut«t$  Grwip 

36U  Rintrron 

JamAMw 
VariLuri 

&V2Ciaub 

£464  Sriaiwaui  St 

CO1.0RAI>q 

COoikto  Ptr  U*«»  Cfwp 

(Pfi  S  Qutnuci  S; 

JooC  Atewo 
CanUft]  CTiiY 

B4ach  CAt  SoCLwara 

?  0  Box  144 

Jihh  M   Kuipny 
Gi-ind  Jjncuon 

W*f1*!n  Slope  Com.'nrfare 

Umi  Oicup 

PO  &aic4143 

JotOardhar 
laSimvood 

Commodora  Condai  Club 

l&ao  Uwii  Si 

Rantld  MuaLcH 

COMHKmCUT 

r«iiti*id  Ca  jr.Ef  Cofn.TMdoF'* 
Uh(  GiQjp 
PO  Boi2T2 
Kervnai:^  H  Hocus 
£ut  Hanfcid 
Han^oid  County  Commaiiat* 

Uuii  OTOUp 

PO  BoxBS&J 
J  Riiwal  Cjfiii* 
Noflfi  Havtn. 
CfMI«E  S^vw  Hftvvn  CifirirodOt* 
L'Mf  GtOjp 
?Q  Box  7% 
iJavGajdnaau 

juRihud 
Stamldcd  Araa  Commodoi  a 
SociatY 
P  O  Boa  1337 
Pilchard  P  Monei 

CapilD<  F^agigA  Cwnftioda*  CiuB 
P  0  &QS  2372 
Palm  BtiXhu 

DCLAWAIUE 

RobMt  E   Bu;fc  Jf 

DUTMCT  OF  CQLUIIBIA 

Ptfli4QQn  —  Wadn. 
PCHTAf  Cominodoit  64  Cub 
l94T(hHSGMWH   AFI1k:S«i 

FLORIDA 
B.TVHIV  HiJt 

Clmui  Couriy  Commodoie  Club 

PC  BqiiU3 

Wa:<  RoQiii 
Bratt««^;t>r. 

Cieup 

9lS  E  }S4h  Ave  Di 

pjtwi;  0  Br-jr.wr. 


RAM  POM  fr! 

PO  &H  1369 

OrivS  Devm 
Ft  wytonBHch 

Oli«)«)ca  CofniTvedara  Ui«  i 

Gf-Ouip 

411  ACcliLa  Avvnua 

CaMTi  imm 
c>at/i«iivda 

GaiMFfTiM  Commgdw*  Uaaii 

GiDup 

PO  Box  H7IG 

Draw  Hufl** 

Jacluonviila 

UhT  Cc'mmaJos'e  Campu!*i 

Club 

i;niH«iKivai  NorUMon  FTonSa 

Jar  H^Dbtiw 
Uicriand 

l>hvMiM  Pcjic*  LThi  Omjp 

2333  C(v*t*l  Park  North 

Joiepn  M  SiUviiioit 
Mvlbouina 

EL  Shift  OH 

P  Q  Box  35134a 

T»d  SeiTunuim 
l^iami 

M  [CE 

line  Bvd  F*d 

l!»n  C  0«jri)y  ."! 
MiaiTd 

Mukm4  20&t 

12^1  ]  SW49UiSuME 

Jim  Junraan 
MiMmi  SprinQS 

MiaTTii  ^pruigs  HialAah  Uus 

Ciiikip 

517  Witn  Av«nue 

QuumP  Toflindai 
0=aU 

Til  Countv  ComrMdMa  Ut«ii 

PO  BmtllSl 

Halar  Saiina 
Orange  Paik 

OorrriHlora  CoraputBE  Gub 

3931  CotUns  Rd 

Lcring  Piits 
Criando 

Ccnual  FL  Cnnmodcia  Uhii 

CT9UP 

PO  Bg»73a 
TlTuMffioji  LauffKfli 

Suncofii!  6a  i 

PO  BoiE£2:8 

RoBwiP  D9i]*¥ 
Panaanu* 

CMTLmpdcre  Useif  dI  PanHcoSa 

PO  Bai3£33 

EMCia  Jotuwon 
Port  CTMrMtc 

Chvisiia  CauRty  Cammodsi* 

Chib 

^?N  EUicouCii 

Lm  TiBux 
Puikin 

CU  S  H 

107  K  BraiKft  Pd    V* 


Tituavitle  CotnnwdM*  dub  Inc 
S90  AlfMd  Si 
RoUrfiS  Mjnay 

OlOnOLA 

Albany  CorxtckkIoib  Arnawui 
CMTipuier 
PD  BciWei 
Pober.  B   McHiish 
AI^>«nt 
Aitiaru  CcnuRodoir 
EnUiuiiaiu-lACEj 
\XS[  JtmtsDiiMt 
Dwiall  Wailay 

DvCtalul 

AU*J^14 

£33  Cu^jn^ofiE  Oil 

pOftifetE    Sirf!*4±] 

Sava^nAPi 
SCUOC/0 
\Q3  Vii^iniB  Ave 
Dala  R«a>3an 

HAWAn 

I4aHaidr<  DflCUic  Cue 
e^C  vvud  Ave 
Pod(v»v  Ywn 

DAHO 
Biatfilw*; 

BiiiCtilmtUter^  Gieiip 

760  J-inei  St 

Sarf,  -Vitcopi 
PiftOf** 

Trxf  BiaektOOl  UtOra  Qre^p 

417  SouUi  1200  kV«1 

Curtia  SniJtA 


ILLLHOLS 

Eut  Sida  Carr.pij-.di  OuCi 
3103  Clay  Si 
Daitmg  McGEauon 
Aiponisa 
Aiyonna  PaiaonaJ  Cornpuur 
Out 

PO  BaxJJ? 
EXian*  R  Biadlay 

roKViUavMUMTtOivup 
1034  E  BanunSi 
TuBlt  Chiuunaan 
BiBcUey 


Csnicr. 
CATjzJrt  ^ji-fl  i7L-:nr-i  tl^iic  Uwit 

AR  #1 

Roban  S  Sntfiljcn 

AmcKoCorp  MiriK^'tTipulri 
Usei  Cjioup 

200  E  RaiiCtofph-MClOOl 
^diaid  Ryan 
Dalian 
Suburban  CornmodMO'  ijaatt 

PO  &CBE2201 

StanNwmuc 
Oahnbuig 

Knox  Commodof*  Ciib 

1S5  Ohvn  Si 

PaadyL  Fou 
Jcinet 

Com  £d  Emp^cyw  ComtoDdotB 

UG 


Ucoft 
Heian  o(  tL  CofniTKx)«e  Um!» 

9M  FLtih  Si 

905  We«  £Uv  A« 

MurrayvUIc 

JacksonvUtai  Aim  C<un[Tio<lcE> 

UO 

4PuicBUSt    PD  rkhJi  \3t 

riieg  SirapH>n 
SpiinQlield 

CapitotCity  Cwnmodora 

Cempulw 

PO  5iw296l 

SprmgLeld 
SKJO  Ct^mpjiei  GluA 
JiefiCwiraiEl 
Bed  £aid;vf 

IHDIAHA 

Bloonungtan 
B.locnungton  QxTifnodatf  L'sh  s 

SDOE  Aiwxui 
MmillJ  Abn 

EvanaviHa 
CDiTumdcira  Computn  Club 
PO  Box  2332 
Siuca  Fulvy 

CHUa 

J  322  Fairview  Di 

G:«gg(>A  ChaJwy 

Kolcmw  CMnmAdote  C$(npvTeT 
dull 

eoi6¥aleCoLait 
RiCiMidN  LaMolt 
L.nl4yat!E4 
Cornmodaie  Ovrncn  oi  Ulavciit 
PO  Box  6763 
RoH  lnd«iicau> 


KANSAS 

AlChiMr 

Acctuaan  ComiMTrtnrHS  Use:s 

PD  30x396 
Henry  F  tJovi- 
Han 
Hiori  fUm*  CotnnTOaMe  U»n 

1S03W^»,rtpjHX3Dt 
Alan  ClLngincKniUi 
tfuictiinaon 
Sa.''.  Ciiy  Commadeva  Gub 
P  0  Box  2644 
WendBjO  Hunlwin 

L.^wTPric*'  CoFTLEnodtJie  U-seis 

Ci«tir 

P  0  F<«  22M 
hr  Hfunl!! 

aHTUCKV 

GUtqain  Conui-.nd'^iH  U^^i 
Cioup  Int 
PO  Box  IM 
SW'if*  Englqjii] 
Lexingun 
Comniodoip  IXI  of  C*r,iial 

VittJM  MlIi 

LouLiviL^ 

LUCKY 

eeOlMcXenn^iWsv 

P  L>  Bahop 
U&disonvilr- 

CstTiPiodotc  tC  ol  MadiionuiJc 

CUOOM 

M4  Tli«np«on  Av* 

t^ithaid  Bvid 

Baton  KwB* 

Baion  R«U9«  C-&I  Um  GriMp 

PO  Ba)iI4l« 

Byion  BtttNHly.  Jf 
UiwChwIfa 

Lali»  Ch4})«  Ukti  Group 

5631U)uslyti 

r;*l«fn  Fwiiflftoi 
MKBtri^ 

SLn^'Foij]  UiTi 

4317  Slockton  Suwii 

QkiabMhS  MEsKmaim 
£rirova[wrt 

Alh-La-Tax  CommDdDca 

CsmpWW  Club 

BSl5FairtaaA«r 

BdWajiw 

S'stihean  t^  C^itvmxJo^  Useii 
Onip 


LogBnsmc^  CotatKxiotr  Culi 
2329  Myeri  L&fie 
hhmaidC  Peoples 
Taice  Hauw 
Weswns  Indiaiw  ComiT.oitoie 
Ui#r5 
POBosie« 

IOWA 

Amec 
COJaMCoavaaieimlitm 
Gioup 

PD  Box  2307 
jEjhnSmiUi 

SynittntiTOis  An'vivr)Dy& 
1224  14ihAvfriu«  Wfnf 
RusSoBS  OtrtH'il". 

PECCUG 
33iJoyDi 


PO  B 


I  ITS 


taui  CcimnioilQF'a  Ua^i  Gioup 
|7^CfllLuribia  Av« 
Da;l#r>4>  Enfjlifh 
KoutioB 
SouLAnn  Aiooetoofc  Camnxidoie 
UiefB 

FO  Box  451 
RotwiL  Blanchatte 


U*4n'  OiDup 
TTllQ  Duitty  Lam 
CtxTiC  Setutdi 
H«crtFl'';>vfi 

23  Ci7v>nuv  Latw 

JnmtiF  PuMairwsiu 
LewUktdWwn 

PA»COM'M 

240  JairMBon  Si 

DavtdJ  HaiTibliri 
R«i>Mi«tvwn 

ETJM  BACC 

PO  B*(479 

WilbfcmJ  i;>MDd»t!« 

P  O  Bux  *DX  111 
DcnChlta^ov 
Sivar  Sprifiti 
VieApp<MtinM»  [VICAPI 
iWfiO  Naw  Hart5p**iii^  Av*nu* 
Hi^griS  P*tm 

TawKfl 

HAYCUG 
12W.Jf*dCc--i; 

ri*ivc!:<'-v,r'i,  ;: 

MASSACHUSETTS 
FaU  Bivvi 

MtMO 

PO  Boj333r> 

E*vin  Ctov 


^  Mviiif'SUMi': 
<*wKn  F  Mabcm 
A'mtlwld 
I'ltriM*!  VtOcv  Conunodoiii  C^jti 
t  ;ji.iiw  T-rtac* 
MatvmS   Y»l" 

UlCHtQAH 

Biiy  Cjiv 
Commcdoia  CocititcucfiCuli 
•WO  ISUi  StJe«i 
J«rtM!«  GrtEhi 

□m 

Nonharn  Owimm  County 

Conunodora 

PO  Bin3£0 

OarthJ  Sima 
Doaibotn 

Ford  Commodoie  Compuiei 

Glib 

PO  BealSOl 

Kairv  Tijckri 
DoOai  B«|i 

Ccri»f  Cciin^y  Cnnputn  LIwii 

PO  Boi  UK 
RlbiqS  Vu^rinan 

AGO 

4401  Paiflgiove^  Di 
ArtiiJi  Nclioii 
E  LAnsing 
Laf^ing  ^^  Cwnrnodma  Chib 
9MTiaj4lo*t 

Hudaotwiiim 
W*n  M^chkOan  CommwJoi* 
UBai  Oioup 
33^7  Van  BiMCh 
Rwi^A  Bujanwolo 

Jaekstrti  Cominpclgcc  CompulPi 
Dub 

20\  \'ii*\  Michigan 
Siever.  M  BaYir^ 
Lwinsn 
C<jm[nod<;ie  Usai  GESiip  ol 
Ojiand  Kt! 
ll7lSPailtDi 
Moild  Homino 

COUf 

TSMF^jllygutBd 
Brian  Piin^ 
SquUlvat* 
Dq<«D  Pivar  ConumdciB  (Jici 

1S331  Csmaion 
NnncY  A  Hanna 

YpMlUITI 

WnaTili^nsv*  Commoc^ig  Usria 
44130  OakangaiBS  Drive 

lOHNXSOTA 

P.ochestK 
llochwi:«f  AiiM  ComEnwtor* 
(Jme  Gitup 
2526  6th  Atra   KW 
David  Moarinl 

HIBIUfltPM 

BJoisk 
CenitJirip  Cemntwtefr  CompuiPi 
Cub 

1D2  MiifUdp  Ci!£^ 
NamanB  Cyi 

MSSOUIU 
BaUwin 

HDC   RCC  Commodorn  Sp#ti4 

EntvEvBi 

bB6  a^  WtKd  Dtivf 

PjthwdM  Vfllan 
Jopm 

Jopbn  ComTTKKlne'  Ccmruit'i 

UVR  GlEIUp 

424  S  Florida  Ave 

DalaCmnety 
Msnahoun 

IMU  BoQUwel  Usars  Grrrup 

f  0  Btn  IB 

JaamH  Hiiuon 
'AfajMuburg 

Commadoaa  U>w  Croup 

Wananxburg 

PO  t 


ftuck  SsniaerlcBaip 

MQHTANA 

Oteufab 

Cwcadt  Counly  Ciftrmuclntf 
Umi  GtDup 
PO  Box  739 
o«ald  SijidtMdi 

PO  Sw  IITS 
LasDicruch 
SwvatwvilJe 
MlhouJb  Cor-^-nodcrr#  Ustii 
3IDS-.hSuc«'i 
JoHn  Vwburg 


NEBRASKA 
AriswDrth 

SA.-tilht!l  Pl>(>k«  &  PMB4 

Ray  Sunk* 

F^ihhndar  Cccr.makwe'  Ut*is 

PO  Box6a3 
Jack  Qui^ey 

Gteaiei  Oroaha  CcmEnodoc^ 
Linrs  Croup 
^3^  LeawDDd  Drivn 
Bob  QuwvnbetEV 

Araiga  Ui«i  fjioup  of  South 

PO  B<wJ761 

Jay  Fntman 
Chtny  HiU 

S  JaifSiy  A.Tuga  UKei*  Group 

523  SociB:y  Kill 

JshnScDct 
LmwDod 

C'H  [Jsets  Croup  cj  Souib 


MaiAwart 
CcFmmMkua  U$m  Group  o£ 
Central  TU 
112C»dBnds«Rd 
OAWlHabfet 


CoramodDc*  Campntm 
CcOacsjonGub 
TJPuwDr 
MbI  FrirdiTun 

CX^MCcmmodoiB  Ua^ii  Oioup 

PQBd«292 

P«B  Act-uHibacti 


nwiocxtci^ 

L<uCn>CH 
AviaiiM  A  CofPpulflr 
Emnu&iBJtj. 
122CeilChDfm 
C«(iH  Bogaiilui 

3974  C  Alabama  Si 
Jade  L  Joh;ii«n 

WKWYOHJC 

UJur  Mounijim 

Adiiordafk  C  &4  UiBti  Gn>up 


Bto-Mva  CoBunodot*  Uiti 

1735.  East  IWiSt    Apt  7.H 
Malccira  J  Cottaiman 

c:i*n  Cove 
UniilirtoUieiiCioijp 
rSoilow  A*.Eiiua 
Dor  BikaH 

Glandale 

■□■JMTW  ClWrETKdOIB  Ut#n 

76  1 1  Hih  S-rwt 
Bjucp  Bi^hipni] 


NYTCC  Ubbi  GfiMp 
29  Jutland  Siiml 
FEanhT  MoortiBBd 

Mammondapoi; 
FurrgBi  LaiiBi,  Aiaa  K^mpLitn 

66  W  LahsKd 

TeiEiLynne  Maisy 
Molbiixk 

CLUB -64 

1  ST? CoaE«  Avenue 

Michael  McGiBiti 
L^viiiQwn 

Auocifli«d  CommmDdofif' 

Enthusjaiu 

jrSi3>et  L^fie 

Chru  .^a&eDi 
riavf  Hacrpion 

CommodarrMUC   a{  CTairge 

PO  BoxZ38 
St<>pFiBnP  GeEiU 
tlfvt  York 
PC  &  Basoaich  Useii  Gioup 
111^  Ave    nUi  Ft 
Lou  Xairy* 

rJev.  Y«k 

T«^fsrsiAigy  No(  Trtrtw 

£l5W   iKinSuAM 

Tom  TfoeM 
New  Yoik 

TN-  fJew  York  Tim«  p^itafial 

229West4:h(dStrt*i 
DmubI  Fa/sbi 
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USER  GROUPS 


CiMyiBMBH' Lcftg  brtmd  Qub 

EtkP  Md« 

Otwwgo  Csmmadatc  Um  Croup 
208  P«fh  Kl«ll  Pupil  T#cftnototfv 
Johr  F  FkHonUy 
T«Umi.n 
Cwnputai  CtkiA  of  Ftqctdind 
PO  B«>  2J} 
P*(ilFi«n(«l 

D  BUG 

KtWrOUNDl-AMD 
CANADA 

Si  JdWit 

Pto«Mnt*Jla  Cornrrcdoi'*  Uui 

P  O   Boa  202a 

hdhth  caaoldm 

Cr««n*tni'9 


Ghmp 

PO  Pok^JI 

JtrmM  MofJM 

OHIO 

CincinnMi 
UC0H44 
MO  Twjvrun  Univ*rtiS)'  CU 

Bmi  Ctu» 
Cohunbui 
Cwttral  Dtua  CinrirodQi^  Um>I 
Ocoup 

PO  BoiSBSS 
PTutip  Lynch 

P«a<  M«noi  Uses  Gioup 

Mairan  Ohio  Cotnimdor*  U>*t* 
f^ichus]  Muntg 


CUO '  Comaedore  54  U*m 

Ctojp 

TCUPuk  A<wnLi«Nw 

Jirn»chind 

334  F«4Wia«r  S  Z 

CHUG 
PO  Boa  2239 
RuuriLC  Yri>v 
TcMdo 
Commodm  C«nput«r  Clvib  ol 
Tokcto 
PO  BwBMH 

QUAHOMA 

[iHinJMHiIM 
C<Hiimcdar«  Usni  d1  BuitoiviJM 

f  IH  May«s 

DUQON 

Com  C<)<ri[iuiBt  Grub 
PO  bta«Xt 
fmttt  Ch«l4 

PO  BoalUie 
OtpfOA  Ct;^ 
fO  Box  1140 

PEHNITLVAHIA 

Am:CHCHiPS 

3m  MiddWxMfTi  F)(M<1  no  tl 
TKmkt  Diifl 

D19MP 

PO  B01GII7 

fUnuu  R  HMi^n 


U;iw*f  Stida.  Umi  u:4up 
pO  BoiHa 
Roc^nC  Susctw 
NiM  Eaiuingun 
AK  M  UiMi  GiDup 
1762  riirmoTilStiiw^ 
AJton  E;  GluBwh 

]01  Pwac*ntakH  Di 
M*uJ'.«w  Kertfv 
PTidAOiHipbu 
SUB  64 
PO  Box  SOX 

FMUbuiffh 
Bf'iLj*  Cammodw*  Uhi  U^e>g^ 
M2  Aitiot  Una 
ajlCwnpMI 


XO  Licl<4w4t!f.4  Si    Aft  4F 
Dftvv  nwxi^Q 

C*r.u>t:  PA  VsK  Croup  toi 
ClMTiinodor* 
POBoul 
>G«*pt.  W  CoSrur 
Wart  CT«*»iei 

](H6  Q*n*iftl  Al«fi  L&n?- 

SOUTH  CAROLIKA 

Caeamxian  CacnpuiK  CU)  Of 

HE  QuincvuiOR  Dim 

Mock  Kill 
nock  Hil  Comcnwlora  Umc 
Oioup 

417  S  SpfuceSi 
TkiTi  Johnscn 

}OUTK  DAKOTA 
n*p>d  City 

ponU 

|7i;ACrui  Di 

HwmM  S  Yoik 


TZftKCSSZt. 
iJ-jt  Spr_ig3 
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Continued  from  pg.  9-4 

560    POKE    54273, NH(G) :POKE    54272, NL(G) 

:POKE    54276, 33'DHWN 
570    FOR    D=l    TO    77:NEXT    D:POKE    54276,32 

:NEXT    Q'GRXN 
580    FOR    X=l    TO    1234:NEXT:POKE    54273,0 

:POKE    54272, 0:GOTO    130'HCJQ 
600    REM    THE    PROGRAM    ENDS    WITH    A    SIREN 

/    COLOR    /    PRINT    ROOTINE'BSNN 
620    FOR    T=99    TO    181:PRINT" [RVS] 

THE    END!     "; 'EIRI 
625    POKE    53280, T:POKE    54273, 250-T 

:POKE    54276, 33'ECCP 

630    POKE    53281, 250-T:POKE    54276,32 

:NEXT:POKE    54273, 0:FOR   D=l    TO    1111 

:NEXT" JLKP 
640    POKE    53281, 6:P0KE    53280,14 

:PRINT" [CLEAR, L.    BLUE] " :END' ESCL 
700    REM    DRAW    PICTURE    OF    MAGIC    MUSIC 

BOX'BBGJ 
710    POKE    1384,79:POKE    1423,80 

:POR   T=1385    TO    1422:POKE    T,119 

:NEXT'HHQM 
715    FOR    T=55656    TO    55695:POKE    T,0 

rNEXT'FQDN 
720    SP=LEN(M$) :POKE    1344+SP,78 

:POKE    1344+SP+39,32 

:POKE    1344+SP+38,32'KPCS 
725    POKE    55616+SP,0:POKE    1344+SP-l, 


32'FUHP 
730    POKE    1424,116:POKE    1463,106 

:POKE    55696, 0:POKE    55735, 0"EIYM 
740    POKE    1464,76:POKE    1503,122 

:FOR    T=1465   TO    1502:POKE    T,lll 

:NEXT'HIVP 
745    FOR   T=55736    TO    55775:POKE    T,0 

:NEXT'FQBQ 
7  50    RETURN 'BAQG 
800    REM    MAKE    THE    MAGIC    MUSIC    BOX 

PROCESS    THE    MELODY'BLJN 
810    G=RND(1) *38:C=RND(1)*16 

:J={RND(1) *11)+48:I=SP-1 

:N=RND(1) *10'PLKU 
820    POKE    1425+G,J:POKE    55697+G,C 

:POKE, 1344+1, 86:POKE    55616+1, 

C'lJKQ 
830    POKE    54273, NH(N) :POKE    54272, NL(N) 

:POKE    54276, 17:F0R    D-1    TO    3 

:POKE    54276, 16'HUAS 
840    RETURN 'BAQG 
900    REM    OPEN    THE    MAGIC    MUSIC    BOX    AND 

LET    THE    MELODY    OUT'BNYO 
910    FOR    T=55736    TO    55775:POKE    T,0:NEXT 

:POKE    1471,32:POKE    1472,32'HHVO 
920    POKE    1511,77:POKE    55783, 0'CPYJ 
930    PRINT" [HOME, DOWN12,RIGHT10] 

AND    IT    COMES    OUT    HEREi"'BADO 
940    FOR    D=l    TO    1111 : NEXT ' EHDK 
950    RETURN' BAQI  iHD 
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Businesses  Need  An  Edge! 

Commodore  Computer  Owners 
Have  One.  .  . 


;  SERIAL  PORT  PRINT  BUFFER 

A  SERIAL  BOX  lets  you  print  one  job 
while  you  are  working  on  another. 

No  Waiting.  . . More  Computing... 
More  Output.  .  .Good  Business. 

ONLY  ^99^5(suggested  list  price) 

Price  Effective  March  1,  1987 

You  can  dump  15  pages  of  text  in  2  V2  minutes 


GEOS'"  COMPATIBLE 


DftaF«r  Inqulflfls  Rflqueatad. 


CALL  1.800-22S-7264  FOR  ORDERS  AND  INFORMATION 
IN  PENNSYLVANIA  CALL  (2151  622-5495  OR  WRITE: 

R.  J.  Brachman  Associates,  Inc. 

P.O.  Box  1077     Havertown.  PA  19083 

Foreign  ihlpplng  and  handling:  Canada/Mailco  Ktd  $5,00; 

•II  othtnaddSIS.OO. 

VISA.  MC,  Check  or  Money  0>d«r«  acceptad.  C.O.D.  add  $2,50 

PA  residents  add  6*t  (PLEASE  ALLOW  <  TO  6  WEEKS  FOR  DELIVERY) 

'FONT  FACTORY  ig  t  font  dtllgn  ullllty  prDgrtm 


Pric«i  subjact  lo  chingt  wlinaul  natlcv- 


JIFFIES/THE  CLOCK 


Conthiiu'ilfrom  pg.  1 1' 

914  DATA  162,1,173,11,220,41,128, 

240'BCRN 
916  DATA  2,162,16,138,153,26,4, 

200'BAAP 
918  DATA  169,13,153,26,4,200,169, 

32'BBJR 
920-'DATA  153,26,4,200,173,11,220, 

170'BCQK 
922  DATA  41,16,32,1,192,173,10, 

220'BASM 
924  DATA  32 , 0 , 192 , 173 , 9 , 220 , 32 , 0 'BXDN 
926  DATA  192,173,8,220,41,15,9,48'BYQQ 
928  DATA  153,26,4,169,1,160,13, 

153'BAFS 
930  DATA  26,216,136,208,250,76,49, 

234'BDUL 
932  DATA  120,169,27,141,20,3,169, 

192'BCKN 
934  DATA  141 , 21 , 3 , 88 , 96 , 256 ' BSHO 
950  POKE  SA+106,FN  L {SA+27) ' ENDN 
955  POKE  SA  +  111,FNI  H  (SA  +  27 )' ENUS 
960  READ  I,P:  IF  I=-l  THEN  985'FJCO 

965  POKE  SA+I,FN  L(SA+P)'EKAT 

966  POKE  SA+I+1,FN  H(SA+P)'FLPU 
970  GOTO  960'BDOL 

980  DATA  30,20,67,1,73,0,79,0,-1, 

0'BAHQ 
985  POKE  U,PEEK(U)OR  1 : RETURN ' EHPU 


EHO 


Falcon  and  the  Enemy 

(jiiiliiiut'tl fniin {)}•.  ~ I 

[SHFT  -,L.  RED] AWAITS [CYAN] 
[SHFT  -] "+R$+"[CMDR  Z,SHFT  *7, 
CMDR  X] "'HMVU 
1045  PRINT  RI$RP$'BGEE 

1050  PRINT" [HOME, DOWN, RVS, RED] 

YOU  HAVE  FAILED!   [RVOFF] " 
:GOSUB  3000:PR1NT" [DOWN, GREEN, 
SPACE3]THE  RESULTS  OF" ' DGJK 

1051  PRINT"  YOUR  EFFORTS  LIE" 
:PRINT"  TO  THE  RIGHT. "'CBHI 

1052  PRINT"  [PURPLE, CMDR  @15,RVS, 
CMDR  *, RVOFF] ": PRINT"  [CMDR  T15, 
SHFT  POUND] ":GOSUB  3000 'DGWA 

1053  PRINT" [DOWN, RED, SPACES, RVS] 

HOWEVER  [RVOFF] ";GOSUB  3000 
:PRINT" [SPACES, GREEN] 
THE  MOTHER  SHIP"'DGAM 

1054  PRINT"  WAS  ABLE  TO  FIGHT" 
:PRINT"  OFF  THE  ATTACK. "' CBDM 

1055  GOSUB  3000:PRINT" [D0WN,SPACE3] 
YOU  STILL  HAVE": PRINT"  A 
CHANCE."' DGFM 

1056  GOSUB  3000:PRINT" [DOWN, SPACES] 
IF  YOU  WISH": PRINT"  ANOTHER 
MISSION?"'DGFP 

1057  PRINT" [DOWN, PURPLE, RVS, "19] " 
: PRINT" [RVS, "2, RVOFF, GREEN] 
PRESS  SPACE  BAR[PURPLE,RVS,''2] 
"'CBPV 


1058  PRINT" [RVS, "19, HOME, GREEN] " ' BAHN 

1060  GET  A$:IF  A$=""THEN  1060'EJED 

1061  IF  A$="  "THEN  PRINT" [CLEAR, GREEN] 
" :RESTORE:G0T0  10'GGHF 

1999  END'BACU 

2000  POKE  49989, 234:P0KE  49994,49 
:SYS  49987:5=54272 'EGGD 

2005  FOR  L=S  TO  S+24:POKE  L,0:MEXT 

:POKE  V+2 1,0: PRINT" [CLEAR, GREEN] " 
: RETURN 'KSJJ 

3000  FOR  T=0  TO  950:NEXT  T: RETURN ' F I I Y 

4000  PRINT" [CLEAR] "; 'BBDW 

4010  V=53248:REM  ******************** 
**'CEOD 

4011  POKE  2040,192:POKE  V,24 

:POKE  V+l,142:POKE  V+39,7:'GCYH 

4012  POKE  2041,193:POKE  V+2,243 
:POKE  V+3,142:POKE  V+40,7:'HEPJ 

4013  POKE  2042,194:POKE  V+4,136 
:POKE  V+5,50:POKE  V+41,7:'HDSK 

4014  POKE  2043,195:POKE  V+6,136 
:POKE  V+7,229:POKE  V+42,7:'HEGL 

4015  POKE  V+43,5:POKE  V+28,192 
:POKE  V+37,2:POKE  V+38,7'IADM 

4016  POKE  2046,200:POKE  2047,199 
:POKE  V+46,1: ' EYUK 

4020  Z$=" [RIGHT31] " : Zl$=" [ RVS , RED, 
SPACE9, RVOFF] " 'CGVG 

4021  Z2$=" [RVS,RED]  [ RVOFF , SPACE7 , RVS ] 

[RVOFF] ":Z3$=" [RVS, RED]  [PURPLE, 
*7,RED]   [RVOFF] ":Z4S=" [RVS, RED] 
[PURPLE,', GREEN, RVOFF] TIME! [RVS, 
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4022 

4023 

4024 

4025 
4026 

4027 

4050 

4051 

4052 

4053 

4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 

4112 

4113 

4114 

4115 


PURPLE,*, RED]  [RVOFF] "'DLLP 
Z5$=" [RVS,RED]   [PURPLE,", GREEN, 
RVOFF] SCORE [RVS , PURPLE, ' ,RED] 
[RVOFF] ":Z6$="[RVS,RED]   [PURPLE, 
', GREEN, RVOFF] YOUR! [RVS , PURPLE ," , 
RED]   [RVOFF] "'CHTN 
BL$=" [HOME, GREEN, DOWN8,RIGHT33, 
SPACES, LEFT5] "'BDSK 
G$=" [HOME, GREEN, RIGHT 3 3, DOWN 2, 
SPACE4,LEFT4] " : XX=49625 ' CKCM 
AL$=" [HOME,DOWN15,RIGHT32] " ' BDV J 
I$=" [RVS]":0$=" [CYAN] A [SPACES, 
DOWN , LEFT7]  L [SPACES , DOWN , LEFT7 , 
SPACE2]  I  [SPACE4]  '"CFPT 
0$=0$+" [DOWN,LEFT7,SPACE3]V 
[SPACE3,DOWN,LEFT7,SPACE4]E 
[SPACE2, DOWN, LEFT7, SPACES] ! 
[RVOFF] "'CEBX 

PRINT" [CLEAR] ";Z$;Z1$;Z$;Z2$;Z$; 
Z2$;Z$;Z2$;Z$;Z3$;Z$;Z4$;Z$;Z3$; 
Z$;Z1$;Z$; ' BKQQ 

PRINT  Z2$;Z$;Z2$;Z$;Z25;Z$;Z3$; 
Z$;Z5$;2$;Z3$;Z$;Z1$;Z$;Z2$;Z$; 
Z2$;Z$; 'BNVR 

PRINT  Z2$;Z$;Z2$;Z$;Z2$;Z$;Z2$; 
Z$;Z3$;Z$,-Z6S;Z$;Z3$;Z$;"  [RVS, 
RED, SPACES , RVOFF, HOME] "; 'BAQR 
POKE  2023,160:PRINT  BL$"[DOWN, 
LEFT, RED, SHFT  *7]";:P0KE  56295,2 
: ' DWCQ 

FOR  Q=12288  TO  12522:POKE  Q,0 
:NEXT  Q'FRED 

FOR  Q=12297  TO  12339  STEP  3 
:READ  A:  POKE  Q,A:NEXT  Q'HUSG 
FOR  0=12363  TO  12405  STEP  3 
:READ  A:  POKE  Q,A:NEXT  Q'HUGH 
FOR  Q=12416  TO  12436:READ  A 
Q'GTUH 

12542:READ  A 
Q'GTQI 
12606:READ 
Q'GTVJ 
12670: READ 
Q'GTXK 
12734:POKE 


A 


A 


Q,0 


:POKE  Q,A:NEXT 

FOR  Q=12522  TO 

:POKE  Q,A:NEXT 

FOR  0=12544  TO 

:POKE  Q,A:NEXT 

FOR  0=12608  TO 

:POKE  Q,A:NEXT 

FOR  Q=12672  TO 

:NEXT  Q'FRGK 

FOR  0=12694  TO  12712  STEP  3 

:READ  A;  POKE  Q,A:NEXT  Q'HUON 

FOR  0=12736  TO  12798:READ  A 

:  POKE  Q, A: NEXT  Q'GTLN 

FOR  0=12800  TO  12862:READ  A 

:  POKE  Q,A:NEXT  Q'GTUF 

FOR  X=55296  TO  55416  STEP 

:FOR  A=0  TO  30:POKE  X+A,l 

:NEXT  X'LCDL 

FOR  X=56136  TO  56256  STEP 

:FOR  A=0  TO  30: POKE  X+A,l 

:NEXT  X'LCAM 

FOR  X=S5456  TO  56096  STEP 

:FOR  A=0  TO  S:POKE  X+A,l 

: POKE  X+A+25,l:NEXT:NEXT'OGM0 

FOR  Y=55462  TO  56102  STEP  40 

:FOR  A=0  TO  18:P0KE  Y+A,12:NEXT 

:NEXT  Y'LDAO 

FOR  Z=55668  TO  55908  STEP  40 


40 
iNEXT 

40 
:NEXT 

40 


:FOR  A=0  TO  6:P0KE  Z+A,11:NEXT  A 

:NEXT  Z'LCWP 
4200  S=54272:F0R  L=S  TO  S+24:P0KE  L,0 

:NEXT  L:P0KE  S+24,15'JAXJ 
4205  REM  ********  VOICE  #1 

*********** '3337 

4210  POKE  S+5,10:POKE  S+6,242 

:POKE  S+1,255: 'GUFH 
4215  REM  ********  VOICE  #2 

*********** "BBTJ 

4220  POKE  S+12,1:P0KE  S+13,242 

:POKE  S+8,25:POKE  3+9,9 

:POKE  S+10,55'KGUN 
4225  REM  ********  VOICE  #3 

***********  'BBJJK 
4230  POKE  S+19,31:POKE  3+20,241 

:POKE  S+15,5:POKE  3+18 , 129 ' IDVM 
4500  RETURN 'BAQB 

4600  REM  ********   M  -  L 
************ 'BXGG 

4601  DATA  141,113,5,141,208,4,141'BXDH 

4602  DATA  90 , 4 , 14 1 , 79 , 5 , 141 , 179 ' BVDI 

4603  DATA  4,141,144,4,141,125,5'BVHJ 

4604  DATA  14 1 , 253 , 5 , 14 1 , 19 3 , 6 , 141 ' BXNK 

4605  DATA  106 , 6 , 141 , 132 , 7 , 141 , 7 ' BVKL 

4606  DATA  7 , 141 , 201 , 7 , 141 , 178 , 6 ' BVQM 

4607  DATA  14 1 , 21 1 , 6 , 141 , 232 , 5 , 169 ' BXLN 

4608  DATA  192,141,227,193,141,221, 
193 'BCNP 

4609  DATA  169,0,141,226,193,169, 
67 'BYCQ 

4610  DATA  141,220,193,96,141,71,5'BXSH 

4611  DATA  141,126,4,141,9,4,141'BVJi 

4612  DATA  39 , 5  ,  14 1 , 100 , 4 , 14 1 , 27 ' BVl J 

4613  DATA  4  ,  141 , 87 , 5 , 141 , 241 , 5 ' BUPK 

4614  DATA  141 ,  235 , 6 , 141 , 188 , 6 , 141 ' BXSL 

4615  DATA  213 , 7 , 14 1 , 87 , 7 , 141 , 87 'BVCM 

4616  DATA  7 , 141 , 0 , 7 , 141 , 249 , 6 ' ETON 

4617  DATA  141,229,5,169,192,141, 
221'BAOP 

4618  DATA  19  3,141,227,193,169,134, 
141'BCUQ 

4619  DATA  220,193,169,67,141,226, 
193 'BBYR 

4620  DATA  96 , 141 , 29 , 5 , 141 , 3 , 4 ' BTTI 

4621  DATA  14 1 , 3 , 4 , 14 1 , 21 5 , 4 , 141 ' BVCJ 

4622  DATA  21 , 4 , 141 , 200 , 5 , 141 , 49 ' BVEK 

4623  DATA  5 , 141 , 242 , 5 , 141 , 2 1 , 7 'BUHL 

4624  DATA  141,14,7,141,14,7,141'BVHM 

4625  DATA  20 7 , 7 , 141 , 62 , 6 , 14 1 , 78 ' BVWN 

4626  DATA  7 , 141 , 21 , 6 , 141 , 225 , 5 ' BUJO 

4627  DATA  16  9,192,141,221,193,141, 
227'BCQQ 

4628  DATA  193,169,201,141,220,193, 
169'BCSR 

4629  DATA  134,141,226,193,96,141, 
243'BBQS 

4630  DATA  4  ,  141 , 198 , 5 , 14 1 , 158 , 5 ' BVXJ 

4631  DATA  141 , 135 , 4 , 141 , 135 , 4 , 141 ' BXFK 

4632  DATA  161 , 5 , 141 , 11 , 5 , 141 , 243 'BWEL 

4633  DATA  5 , 141 , 25 , 6 , 141 , 96 , 7 ' BTVM 

4634  DATA  14 1 , 64 , 6 , 14 1 , 63 , 6 , 141 ' BVON 

4635  DATA  141 ,  6 , 14 1 , 195 , 7 , 141 , 59 ■ BWXO 

4636  DATA  6 , 141 , 237 , 5 , 169 , 192 , 141 ' BXYP 
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4637  DATA  227,193,169,193,141,221,       4688 
193'BCYR  4689 

4638  DATA  169,201,141,226,193,169,       4690 
14'BBSS  4691 

4639  DATA  141,220,193,96,141,201, 

4'BYET  4692 

4640  DATA  141 , 157 , 5 , 141 , 77 , 5 , 141 ' BWSK    4693 

4641  DATA  15 , 4 , 141 , 160 , 5 , 141 , 122 ' BWCL 

4642  DATA  5 , 141 , 229 , 4 , 141 , 244 , 5 ' BVOM     4694 

4643  DATA  141 , 67 , 6 , 141 , 219 , 7 , 141 ' BWTN    4695 

4644  DATA  145  ,  6 , 141 , 103 , 6 , 141 , 220 ' BXDO   4596 

4645  DATA  6 , 141 , 22 , 6 , 141 , 97 , 6 ' BTTP 

4646  DATA  141,236,5,169,193,141,         4697 
227'BATR  4698 

4647  DATA  193,141,221,193,169,14, 
141'BBNS  4699 

4648  DATA  226,193,169,81,141,220,        4700 
193'BBUT 

4649  DATA  96 , 141 , 197 , 5 , 14 1 , 116 , 5 ' BWAT    4701 

4650  DATA  141,252,4,141,159,5,141'BXML   4702 

4651  DATA  81 , 5 , 141 , 44 , 5 , 141 , 201 ' BVHM 

4652  DATA  5 , 14 1 ,  24 6 , 5 , 141 , 109 , 6 ' BVPN     4703 

4653  DATA  141,24,6,141,226,6,141'BWJO    4734 

4654  DATA  143  ,  6  ,  14 1 , 4 3 , 7 , 14 1 , 61 ' BVMP     4705 

4655  DATA  6,141,135,6,141,235,5'BVNQ     4706 

4656  DATA  169,193,141,221,193,141,       4707 
227'BCRS  4708 

4657  DATA  193,169,81,141,226,193, 
169'BBHT  4709 

4658  DATA  148,141,220,193,96,141, 
155'BBRU  4710 

4659  DATA  5,141,34,5,141,171,4 'BUJU 

4660  DATA  141 , 119 , 5 , 141 , 2 , 5 , 141 ' BVGM     4711 

4661  DATA  222,4,141,163,5,141,249'BXNN 

4662  DATA  5 , 141 , 151 , 6 , 141 , 65 , 6 ' BUOO      4712 

4663  DATA  141,51,7,141,183,6,141'BWMP 

4664  DATA  122 , 7 , 141 , 100 , 6 , 141, 173 ' BXDQ   4713 

4665  DATA  6  ,  141 , 234 , 5 , 169 , 193 , 141 ' BXWR 

4666  DATA  227,193,169,192,141,221,       4714 
193'BCXT 

4667  DATA  169,0,141,220,193,169,         4715 
148'BATU  4716 

4668  DATA  141,226,193,96,169,46, 

32'BYDV  4717 

4669  DATA  148  ,  193 , 96 , 169 , 32 , 32 , 81 ' BXHW   4718 

4670  DATA  193  ,  96 , 173 , 254 , 3 , 208 , 15 ' BXAO   4719 

4671  DATA  173,53,3,141,14,208,173'BXPO 

4672  DATA  54  ,  3  ,  14 1 , 1 5 , 208 , 141 , 254 ' BXMP   4720 

4673  DATA  3 , 165 , 2 , 74 , 144 , 6 , 206 ' BUSQ 

4674  DATA  1 5 , 20 8 , 7 4 , 1 6 , 6 , 74 , 144 ' BVAR     472I 

4675  DATA  3 , 238 , 15 , 208 , 74 , 144 , 5 ' BVWS     4722 

4676  DATA  206,14,208,176,6,74,144'BXYT 

4677  DATA  3 , 238 , 14 , 208 , 173 , 14 , 208 ' BXSU   5000 

4678  DATA  201 , 35 , 176 , 5 , 238 , 1 4 , 203 ' BXTV 

4679  DATA  208,7,201,237,144,3,206'BXbJW   sggx 

4680  DATA  14,208,173,15,208,201, 
Se'BYDP 

4681  DATA  176,5,238,15,208,208,7'BWDP    5002 

4682  DATA  201,229,144,3,206,15, 

208'BYFR  5003 

4683  DATA  96 , 173 , 0 , 220 , 41 , 31 , 73 ' BVOR 

4684  DATA  31 , 208  ,  3 , 76 , 207 , 194 , 74 ' BWCS    5004 

4685  DATA  144 , 6 , 206 , 1 , 208 , 206 , 3 ' BVKT 

4686  DATA  208 , 74 , 144 , 6 , 238 , 1 , 208 ' BWXU    50^5 

4687  DATA  238 , 3 , 208 , 74 , 144 , 6 , 206 ' BWXV 


DATA  4,208,206,6,208,74,144 'BWVW 

DATA  6,238,4,208,238,6,203 'BVCX 

DATA  74,144,43,173,52,3,208'BWVP 

DATA  38,169,65,141,11,212, 

173'BYPR 

DATA  4,208,141,8,208,173,1'BVPR 

DATA  208,141,9,208,169,196, 

141'BAYT 

DATA  252,7,169,21,141,52,3'BVQT 

DATA  141,252,3,169,16,13,21'BWLU 

DATA  208,141,21,208,173,4, 

208 'DYHW 

DATA  201,34,176,8,238,4,208'BWWW 

DATA  238,6,208,208,10,201, 

238'BYJY 

DATA  144,6,206,4,208,206,6'BVQY 

DATA  208,173,1,208,201,59, 

176'BYQI 

DATA  8,238,1,208,238,3,208'BVXI 

DATA  208,10,201,221,144,6, 

206'BYVK 

DATA  1,208,  206, 3, 208, 206, 252 'BXKK 

DATA  3,208,35,16  9,20,141,252'BXPL 

DATA  3, 17 3,  252, 7, 201, 198, 240 'BXSM 

DATA  5,238,252,7,208,18,169'BWHN 

DATA  0,141,52,3,169,239,45'BVUO 

DATA  21,208,141,21,208,169, 

64 'BYLQ 

DATA  141,11,212,206,253,3, 

20a'BYXR 

DATA  13,169,191,45,21,208, 

141'BYMJ 

DATA  21,208,169,128,141,4, 

212'BYIK 

DATA  173,30,208,240,50,201, 

144 'BAXL 

DATA  208,40,45,21,208,168, 

173'BYPM 

DATA  14,208,141,12,208,173, 

15'BYEN 

DATA  208, 14 1,13, 208, 152, 9, 79 'BXYN 

DATA  141,21,208,169,129,141, 

4'BYKP 

DATA  212,206,255,2,169,0,141'BXKP 

DATA  254, 3, 16 9, 10, 141, 2 5 3, 3 "BWNQ 

DATA  172,30,208,172,30,208, 

76 'BYMS 

DATA  49,234,120,169,194,141, 

21'BAPK 

DATA  3,169,63,141,20,3,88'BUWK 

DATA  96,234,234,234,234,234, 

234'BBSM 

REM  ********    LEFT 

************ ' BYCC 

DATA  123,192,224,240,24  8,252,254, 

255,254,252,248,240,224,192, 

128 'BJTJ 

REM  ********    RIGHT 

************  I gA JE 

DATA  1,3,7,15,31,63,127,255,127, 

63,31,15,7,3,1'BQLI 

REM  ********     TOP 

************  <  BXBF 

DATA  7,255,224,3,255,192,1,255, 
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Falcon  and  the  Enemy 


5006 
5007 

5008 
5009 


128,0,255,0,0,126,0,0,60,0,0,24, 

0'BJCN 

REM  ***** 

********* 

DATA  0,24 
0,1,255,1 
224'BJCP 
REM  ***** 
********* 


***   BOTTOM 

***'BBVI 

,0,0,60,0,0,126,0,0,255, 

28,3,255,192,7,255, 


DATA  0,24 
0,24,0,0, 
0"BKHR 

5010  DATA  0,0, 
0,0,0,0,2 
0,0'BNXK 

5011  DATA  24,0 

5012  REM  ***** 
********* 


***   SHOT-L 
*** 'BBQK 
,0,0,24,0,0,24,0,0,24,0, 
24,0,0,24,0,0,0,0,0,0, 


5013 


0,255,0,255,0,0,0,0,0,0, 
4,0,0,24,0,0,24,0,0,24, 

,0,24,0,0,24,0'BSQC 

***   SHOT-M 

***'BBRF 

0,0,0,0,0,0,0,0,0,0,0, 

,0,0,24,0,0,24,0,0, 


DATA  0,0, 
24,0,0,24 
24 'BGNL 
5014  DATA  0,0, 
24,0,0,24 
24'BITN 

DATA  0,0,0,0,0,0,0,0,0,0,0,0, 
0'BADI 
REM  ***** 
********* 


************  1 BYLL 

5019  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,170,0, 
10'BIAS 

5020  DATA  170,160,165,85,90,42,85,168, 
2,170,12  8,0,0,0,0,0,0,0,0,0'BFNJ 

5021  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0'BELF 

5022  REM  ********   BLAST 
************  1  Bj^BG 

5023  DATA  0,0,0,20,0,20,21,65,84,5,85, 
80,5,24  5,80,23,255,84,85,255,213, 
21'BNQ0 

5024  DATA  127,84,5,95,208,23,255,84, 
85,24  5,85,21,253,84,5,125,80,21, 
255'BLRP 

5025  DATA  212,87,255,85,23,255,84,7, 
87,208,7,85,80,21,65,84,20,0,20, 
0,0,0 'BNMQ 


24,0,7,231,224,0,24,0,0, 

,0,0,24,0,0,24,0,0, 


5015 
5016 


5017 
5018 


DATA  24,2 
REM  ***** 


***   SHOT-S 

***'BBXJ 

4,24,255,24,24,24'BVKIJ 

***   SHIP 


mjt 


AMIGA  UPDATE 


Con  liiiued from  pg.  Ill 

new'  date  and  time,  show  you  once  more 
wtet  date  it  is,  and  load  the  Workbench. 
You  may  ha\'e  noticed  that  ECHO " "  was 
used.  This  merely  separates  the  text, 
similar  to  PRINT  alone  in  BASIC.  Howev- 
er, ECHO  by  itself  is  not  acceptable. 

Yesterday,  Today,  Future 

Even  though  you  have  entered  the 
correct  d;ite  and  time,  AmigaDOS  will 
print  \'ESTERDAY,  TODAY  or  UTTURE  at 
times.  If  you  save  a  program  on  August  7, 
1986,  and  check  the  disk  director}-  that 
same  day,  you'll  find  "TODAY"  since  you 
read  the  directory  the  same  day  you 
sa\ed  it.  If  you  decide  to  enter  the  next 
date.  August  8,  and  check  tlie  director}'. 
you'll  find  tlie  word  "^TSTERDAY"  .\nd 
finally,  if  you  enter  a  date  such  ;is  Januan- 
30,  1986,  and  list  the  dircctorj-,  "FU- 
TLIRE"  will  be  dispku'cd.  Any  otlier  date 
after  "August  8"  will  have  tlie  directors- 
show  the  original  date  saved,  'August  7. " 

As  you  can  see.  your  Amiga  has  more 
intelligence  than  you  tliink.  Now  that 
you  have  a  "date-setting"  program,  you'll 
never  have  programs  saved  under  tlie 
date  Jiuuiar}-  1,  2001,  again!  g 


BEST  SOFTWARE  VALUE 
IN  THE  WORLD! 


110  GREAT  PROGRAMS 
FOR  ONLY  $34.95 

(Thai's  less  than  32c  per  program.} 


C-64/1541E  and  C-128/1571®  Versions 

(C-128  Version  runs  in  C-128  mode.) 

FOUR  DISKS  CRAMMED  FULL  OF 

SUPERB  PROGRAMS  IN  THE 

CATEGORIES  OF  BUSINESS,  EDUCATION, 

GAMES.  UTILITIES,  AND  MUSIC. 

SOME  PROGRAMS  ORIGINALLY  SOLD 

FOR  OVER  S30.00  EACH, 

S34.95  FOR  ALL  FOUR  DISKS 

OR  S12.95  FOR  ONE  DISK  WITH 

35  PROGRAMS. 

INSTRUCTION  MANUAL  INCLUDED. 

SATISFACTION  GUARANTEED. 

SPECIFY  C-64  or  C-128  VERSION. 

ENCLOSE  S2.00  SHIPPING  &  HANDLING. 

(Foreign,  except  Canada  —  S3.00.) 


Send  check  or  money  order  to 

Adams  Software  Co. 

2703  S.  44th  PLACE 

SPRINGDALE,  AR  72764 

(501)750-2317 


FOR  MORE  INFORMATION,  WRITE  DIRECT 

OR  CIRCLE  READER  SERVICE  NUfi/IBER 

COMMODORE  64.  128,  1541.  and  1571 

are  Irademarks  of  Commodore  Electronics,  Ltd. 


Can  Your 
Computer  Make 

YOU 

a 

MILLIONAIRE? 

LOTTERY  64  •  LOTTERY  +4 

it  costs  no  more  to  buy  a 
WINNING  lottery  ticket! 

LOTTERY  was  designed  to  JS3  the  raw  power  ot 
your  computer  to  help  you  play  tlie  various 
lottery  game,'?:  LOTTO,  PICK  3.  PICK  4,  LUCKY 
LOTTERY.  5/ 49,  SUPER  LOro,  etc  We  do  not 
believe  there  is  a  better  system  than  the 
onginar  LOTTERY  64  &  LOHERY  -4 

Join  the  growing  list  o(  winneis 

SPECIFY  64  '2B  or  PLUS/4 

To  order  send  S24  95  lot  each  plus 

S3  00  postage  and  tianflling  per  order  to 

I  Illinois  residents  add  6%  sales  tax 


^^B^p  ^^^n 


COD  orders  call    |31 2 1  566-4647 
GQ  Scperiof  Micro  Systems,  inc. 

Dene'  'nffuififs  /lelcome ' 


.v^, 
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GLITCH  FIX 


ADVERTISERS  INDEX 


Magazine  Entn-  Program  -  128 

There  has  been  a  bug  in  the  128  version  of  the  Magazine 
f-ntr)-  Program  which  will  generate  a  NO  CFiECKSl'M 
error  on  any  line  which  contains  oiil)'  a  colon.  The 
correction  to  the  program  is  \'ery  simple:  In  line  110, 
change  the  value  593li  to  59311.  In  line  1040  change  the 
6th  data  item  (09)  to  a  6  (06). 


110  IF  T059311  THEN  PRINT 
:PRINT"MISTAKE  IN  DATA 
DATA  STATEMENTS": END 


->  CHECK 


1040  DATA  BL,3D,D0,FB,C0,06,10,03 


E.S.R  —January  1987  Issue 

Two  lines  in  tlie  E.S.P.  program  were  printed  incorrectly 
in  the  January  issue  of  the  magazine.  Here  are  the  correct 
lines  and  checksums: 

400  POKE  S+24,15:C0=3:CS=0:WS=0 
:DECK=2  5: PRINT" [CLEAR , DOWNS , 
SPACE2,WHITE,SHFT  R] IGHT"SPC(24) " 
[SHFT  W] RONG" ' lEYP 

430  JOY=NOT  PEEK{56320) AND  15 

:FIRE=(PEEK{56320) AND  16)/16 
:IF  FIRE=0  THEN  470'LOJR 


tensoft 
presents 
The 
Amazing 

ARITH 


METICIAN 


For  The  Commodore  64'-  and  128'" 

"AT  LAST  a  Math  Game  Kids  Love  to  PJay!" 

JOHNNY  CANT  ADD?  Suzy  wishes  she  could  outdo  her 
friends  in  math?  They'll  boih  improi/e  fast  with  ARITHMETICIAN' 
Here  is  a  math  game  that  kid's  come  back  to— a  game  that 
quickly  buiids  their  arithmetic  skills. 

It  features  continuous  fully  orchestrated  music  and  animated 
cartoons,  a  wide  choice  of  skill  levels  from  single  digit  addition 
through  seven  digit  long  division,  and  plenty  of  incentives, 
rewards  and  surprises.  All  for  an  incredibly  low  524,95. 

WO  RISK— Complete  satisfaction  or  your  money  back. 
Order  TODAY  and  begin  improving  ThtIS  WEEK! 

aonoyrfvrv  TOLi  FREE  uwrn  Vnji  at  MjnwCMa  I S00B2S  IB?9  irt  CtMcerujt  iAU  )B00biti-t}Ti6 

D  HfJseHndmt .  AwwiMittan OesJo «t  i?4 95 tacn 

tCailofmares/tierts  sMff%  salts  far ) 
n  Send'^ISfnlbnnjiJOfionly     G  CnfOi  at  money  order  endosed    G  Vlu    C  Md3IeiOrd 

AccouncNa EipwmnDJtt 

Sjgnjture 


City^^te .. 


-ap 


Smaio  Hfusfl,  P.O.  Box  mil.  I«i  Dhgo,  CA  «3 1  IB 

tXAi^a  IWOUIRIFi  UWITED 
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Amiga  under  $2,000. 
Anybody  else 
up  to  $20,000. 

This  "painting"  was  created  on  the 
Ainiga'"computer  using  Electronic 
Arts'  Deluxe  F^nt'^''software.  No 
PC,  anywhere, can  create  this  kind 
of  graphic  dazzle  for  the  price  of 
an  Amiga. 

But  there's  more  to  the  Amiga 
than  whiz  bang  graphics.  It's  also  a 
top-of-the-line  PC  ready  to  solve 
problems,  business  and  personal. 

The  incredible  power  that  brings 
Tut  back  to  life  can  also  make 
gigantic  spreadsheets  sit  up  and 
beg,  can  make  eloquent  the  word- 
iest of  word-processing  tasks,  and 
thanks  to  the  Amiga's  unique  multi- 
tasking capabilities,  it  can  do 


!■ *l4UlfUlU'.'''HH"'  ■^^Sf^SSt'- 
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word  processing  and  spreadsheet 
analysis  and  graphics  and  more 
simultaneously. 

No  other  PC  past,  present  or  in 
the  near  future  has  done  it,  is  doing 
it  or  is  likely  to  do  it. 


„  ""'•■XT. 


^^ 
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See  what  you  think. 


PRESENTIN 


A  science -fiction  adventure  game 

Plus  four  fantasy  games  from 
Strategic  Simulations,  Inc. 

For  most  personal  computers. 


A%'ailable  at  your  local  com- 
putiT'sttftwan-  or  game  store. 

If  ihcrt'  ani'  no  convenient 
stores  near  you,  MSA  and  M/C 
holders  can  order  by  calling  toll- 
free  800-443-0100,  x335. 
To  order  by  mail,  send  your  chtck 
to:  STRATEGIC  SIMULWIONS, 
INC..  1046  .N.  Rengstorff  .Avenue, 
MouniaiK  View,  CA  94043.  (Cali- 
fornia residents,  please  add  7% 
sales  lax.)  Please  specify'  computer 
format  and  add  52.00  for  shipping 
and  handling. 

All  our  games  carry  a  '"  14-day 
satisfaction  or  your  money  back" 
guarantee. 

WRITE  FOR  A  FREE  COLOR 
CVFALOG  OF  ALL  OUR  G.AMF^ 
TODAY. 


93^ ''v  STRATEGIC  SIMULATIONS,  INC.  Aig^sese^ed 
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